/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / mixin-madness / simple-view-mixins / GWorld-svm.lisp

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 47 57 6f 72 6c 64 | 2d 73 76 6d 2e 6c 69 73 |..GWorld|-svm.lis|
|00000010| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 4b 36 00 | 00 01 ba a6 83 83 e3 a6 |.....K6.|........|
|00000060| 83 83 e3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bb 18 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 20 3a 6f 6f |(in-pack|age  :oo|
|00000090| 75 29 0d 28 6f 6f 75 2d | 70 72 6f 76 69 64 65 20 |u).(oou-|provide |
|000000a0| 3a 47 57 6f 72 6c 64 2d | 73 76 6d 29 0d 3b 3b 3b |:GWorld-|svm).;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000f0| 3b 3b 3b 0d 3b 3b 20 47 | 57 6f 72 6c 64 2d 73 76 |;;;.;; G|World-sv|
|00000100| 6d 2e 6c 69 73 70 0d 3b | 3b 0d 3b 3b 20 43 6f 70 |m.lisp.;|;.;; Cop|
|00000110| 79 72 69 67 68 74 20 a9 | 20 31 39 39 32 20 4e 6f |yright .| 1992 No|
|00000120| 72 74 68 77 65 73 74 65 | 72 6e 20 55 6e 69 76 65 |rthweste|rn Unive|
|00000130| 72 73 69 74 79 20 49 6e | 73 74 69 74 75 74 65 20 |rsity In|stitute |
|00000140| 66 6f 72 20 74 68 65 20 | 4c 65 61 72 6e 69 6e 67 |for the |Learning|
|00000150| 20 53 63 69 65 6e 63 65 | 73 0d 3b 3b 20 41 6c 6c | Science|s.;; All|
|00000160| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000170| 0d 3b 3b 0d 3b 3b 20 61 | 75 74 68 6f 72 3a 20 4d |.;;.;; a|uthor: M|
|00000180| 69 63 68 61 65 6c 20 53 | 2e 20 45 6e 67 62 65 72 |ichael S|. Engber|
|00000190| 0d 3b 3b 20 20 20 20 20 | 20 20 20 20 54 61 6d 61 |.;;     |    Tama|
|000001a0| 72 20 4f 66 66 65 72 0d | 3b 3b 0d 3b 3b 20 6d 69 |r Offer.|;;.;; mi|
|000001b0| 78 69 6e 20 66 6f 72 20 | 75 73 69 6e 67 20 47 57 |xin for |using GW|
|000001c0| 6f 72 6c 64 73 20 74 6f | 20 64 72 61 77 20 76 69 |orlds to| draw vi|
|000001d0| 65 77 73 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ews.;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000200| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000210| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0d 0d 28 6f 6f 75 |;;;;;;;;|;;..(oou|
|00000220| 2d 64 65 70 65 6e 64 65 | 6e 63 69 65 73 20 3a 73 |-depende|ncies :s|
|00000230| 69 6d 70 6c 65 2d 76 69 | 65 77 2d 63 65 0d 20 20 |imple-vi|ew-ce.  |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 3a 47 57 6f 72 6c 64 2d | 76 69 65 77 0d 20 20 20 |:GWorld-|view.   |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00000270| 51 44 2d 66 78 2d 75 29 | 0d 0d 28 65 78 70 6f 72 |QD-fx-u)|..(expor|
|00000280| 74 20 27 28 47 57 6f 72 | 6c 64 2d 73 76 6d 0d 20 |t '(GWor|ld-svm. |
|00000290| 20 20 20 20 20 20 20 20 | 20 47 57 6f 72 6c 64 2d |        | GWorld-|
|000002a0| 76 69 65 77 0d 20 20 20 | 20 20 20 20 20 20 20 47 |view.   |       G|
|000002b0| 57 2d 63 75 72 72 65 6e | 74 2d 73 6c 69 64 65 20 |W-curren|t-slide |
|000002c0| 47 57 6f 72 6c 64 2d 73 | 65 74 2d 63 75 72 72 65 |GWorld-s|et-curre|
|000002d0| 6e 74 2d 73 6c 69 64 65 | 20 47 57 6f 72 6c 64 2d |nt-slide| GWorld-|
|000002e0| 64 72 61 77 2d 74 6f 2d | 73 6c 69 64 65 0d 20 20 |draw-to-|slide.  |
|000002f0| 20 20 20 20 20 20 20 20 | 47 57 6f 72 6c 64 2d 73 |        |GWorld-s|
|00000300| 6c 69 64 65 2d 74 6f 2d | 73 6c 69 64 65 2d 63 6f |lide-to-|slide-co|
|00000310| 70 79 20 47 57 6f 72 6c | 64 2d 73 63 72 65 65 6e |py GWorl|d-screen|
|00000320| 2d 74 6f 2d 73 6c 69 64 | 65 2d 63 6f 70 79 0d 20 |-to-slid|e-copy. |
|00000330| 20 20 20 20 20 20 20 20 | 20 47 57 6f 72 6c 64 2d |        | GWorld-|
|00000340| 6d 61 72 67 69 6e 73 20 | 47 57 6f 72 6c 64 2d 73 |margins |GWorld-s|
|00000350| 6c 69 64 65 2d 73 69 7a | 65 0d 20 20 20 20 20 20 |lide-siz|e.      |
|00000360| 20 20 20 20 47 57 2d 63 | 6f 70 79 2d 6d 6f 64 65 |    GW-c|opy-mode|
|00000370| 20 47 57 2d 63 6f 70 79 | 2d 72 67 6e 20 47 57 2d | GW-copy|-rgn GW-|
|00000380| 66 6f 72 65 2d 63 6f 6c | 6f 72 20 47 57 2d 62 61 |fore-col|or GW-ba|
|00000390| 63 6b 2d 63 6f 6c 6f 72 | 0d 20 20 20 20 20 20 20 |ck-color|.       |
|000003a0| 20 20 20 47 57 2d 75 70 | 64 61 74 65 2d 66 78 20 |   GW-up|date-fx |
|000003b0| 47 57 2d 73 6c 69 64 65 | 2d 66 78 20 47 57 2d 66 |GW-slide|-fx GW-f|
|000003c0| 78 2d 64 65 6c 61 79 20 | 47 57 2d 77 69 70 65 2d |x-delay |GW-wipe-|
|000003d0| 63 6f 75 6e 74 0d 20 20 | 20 20 20 20 20 20 20 20 |count.  |        |
|000003e0| 47 57 2d 6e 75 6d 2d 73 | 6c 69 64 65 73 0d 20 20 |GW-num-s|lides.  |
|000003f0| 20 20 20 20 20 20 20 20 | 29 29 0d 0d 3b 3b 3b 3b |        |))..;;;;|
|00000400| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000410| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000420| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000430| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000440| 3b 3b 0d 0d 0d 28 64 65 | 66 63 6c 61 73 73 20 47 |;;...(de|fclass G|
|00000450| 57 6f 72 6c 64 2d 73 76 | 6d 20 28 29 0d 20 20 28 |World-sv|m ().  (|
|00000460| 28 47 57 6f 72 6c 64 2d | 76 69 65 77 20 20 20 20 |(GWorld-|view    |
|00000470| 20 20 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 47 |     :ac|cessor G|
|00000480| 57 6f 72 6c 64 2d 76 69 | 65 77 0d 20 20 20 20 20 |World-vi|ew.     |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 20 20 3a 69 6e 69 74 | 61 72 67 20 3a 47 57 6f |   :init|arg :GWo|
|000004b0| 72 6c 64 2d 76 69 65 77 | 29 0d 20 20 20 28 47 57 |rld-view|).   (GW|
|000004c0| 2d 69 6e 69 74 2d 66 6e | 20 20 20 20 20 20 20 20 |-init-fn|        |
|000004d0| 20 20 3a 69 6e 69 74 61 | 72 67 20 3a 47 57 2d 69 |  :inita|rg :GW-i|
|000004e0| 6e 69 74 2d 66 6e 0d 20 | 20 20 20 20 20 20 20 20 |nit-fn. |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00000500| 61 63 63 65 73 73 6f 72 | 20 47 57 2d 69 6e 69 74 |accessor| GW-init|
|00000510| 2d 66 6e 29 0d 20 20 20 | 28 47 57 2d 6e 75 6d 2d |-fn).   |(GW-num-|
|00000520| 73 6c 69 64 65 73 20 20 | 20 20 20 20 20 3a 69 6e |slides  |     :in|
|00000530| 69 74 61 72 67 20 3a 47 | 57 2d 6e 75 6d 2d 73 6c |itarg :G|W-num-sl|
|00000540| 69 64 65 73 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ides.   |        |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 61 63 |        |     :ac|
|00000560| 63 65 73 73 6f 72 20 47 | 57 2d 6e 75 6d 2d 73 6c |cessor G|W-num-sl|
|00000570| 69 64 65 73 29 0d 20 20 | 20 28 47 57 2d 63 75 72 |ides).  | (GW-cur|
|00000580| 72 65 6e 74 2d 73 6c 69 | 64 65 20 20 20 20 3a 69 |rent-sli|de    :i|
|00000590| 6e 69 74 61 72 67 20 3a | 47 57 2d 63 75 72 72 65 |nitarg :|GW-curre|
|000005a0| 6e 74 2d 73 6c 69 64 65 | 0d 20 20 20 20 20 20 20 |nt-slide|.       |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 3a 61 63 63 65 73 73 | 6f 72 20 47 57 2d 63 75 | :access|or GW-cu|
|000005d0| 72 72 65 6e 74 2d 73 6c | 69 64 65 29 0d 20 20 20 |rrent-sl|ide).   |
|000005e0| 0d 20 20 20 28 47 57 2d | 63 6f 70 79 2d 6d 6f 64 |.   (GW-|copy-mod|
|000005f0| 65 20 20 20 20 20 20 20 | 20 3a 69 6e 69 74 61 72 |e       | :initar|
|00000600| 67 20 3a 47 57 2d 63 6f | 70 79 2d 6d 6f 64 65 0d |g :GW-co|py-mode.|
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 20 20 20 20 20 | 3a 61 63 63 65 73 73 6f |        |:accesso|
|00000630| 72 20 47 57 2d 63 6f 70 | 79 2d 6d 6f 64 65 29 0d |r GW-cop|y-mode).|
|00000640| 20 20 20 28 47 57 2d 63 | 6f 70 79 2d 72 67 6e 20 |   (GW-c|opy-rgn |
|00000650| 20 20 20 20 20 20 20 20 | 3a 69 6e 69 74 61 72 67 |        |:initarg|
|00000660| 20 3a 47 57 2d 63 6f 70 | 79 2d 72 67 6e 0d 20 20 | :GW-cop|y-rgn.  |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000680| 20 20 20 20 20 20 3a 61 | 63 63 65 73 73 6f 72 20 |      :a|ccessor |
|00000690| 47 57 2d 63 6f 70 79 2d | 72 67 6e 29 0d 20 20 20 |GW-copy-|rgn).   |
|000006a0| 28 47 57 2d 66 6f 72 65 | 2d 63 6f 6c 6f 72 20 20 |(GW-fore|-color  |
|000006b0| 20 20 20 20 20 3a 69 6e | 69 74 61 72 67 20 3a 47 |     :in|itarg :G|
|000006c0| 57 2d 66 6f 72 65 2d 63 | 6f 6c 6f 72 0d 20 20 20 |W-fore-c|olor.   |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006e0| 20 20 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 47 |     :ac|cessor G|
|000006f0| 57 2d 66 6f 72 65 2d 63 | 6f 6c 6f 72 29 0d 20 20 |W-fore-c|olor).  |
|00000700| 20 28 47 57 2d 62 61 63 | 6b 2d 63 6f 6c 6f 72 20 | (GW-bac|k-color |
|00000710| 20 20 20 20 20 20 3a 69 | 6e 69 74 61 72 67 20 3a |      :i|nitarg :|
|00000720| 47 57 2d 62 61 63 6b 2d | 63 6f 6c 6f 72 0d 20 20 |GW-back-|color.  |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000740| 20 20 20 20 20 20 3a 61 | 63 63 65 73 73 6f 72 20 |      :a|ccessor |
|00000750| 47 57 2d 62 61 63 6b 2d | 63 6f 6c 6f 72 29 0d 20 |GW-back-|color). |
|00000760| 20 20 0d 20 20 20 28 47 | 57 2d 75 70 64 61 74 65 |  .   (G|W-update|
|00000770| 2d 66 78 20 20 20 20 20 | 20 20 20 3a 69 6e 69 74 |-fx     |   :init|
|00000780| 61 72 67 20 3a 47 57 2d | 75 70 64 61 74 65 2d 66 |arg :GW-|update-f|
|00000790| 78 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |x.      |        |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 3a 61 63 63 65 73 |        |  :acces|
|000007b0| 73 6f 72 20 47 57 2d 75 | 70 64 61 74 65 2d 66 78 |sor GW-u|pdate-fx|
|000007c0| 29 0d 20 20 20 28 47 57 | 2d 73 6c 69 64 65 2d 66 |).   (GW|-slide-f|
|000007d0| 78 20 20 20 20 20 20 20 | 20 20 3a 69 6e 69 74 61 |x       |  :inita|
|000007e0| 72 67 20 3a 47 57 2d 73 | 6c 69 64 65 2d 66 78 0d |rg :GW-s|lide-fx.|
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000800| 20 20 20 20 20 20 20 20 | 3a 61 63 63 65 73 73 6f |        |:accesso|
|00000810| 72 20 47 57 2d 73 6c 69 | 64 65 2d 66 78 29 0d 20 |r GW-sli|de-fx). |
|00000820| 20 20 28 47 57 2d 66 78 | 2d 64 65 6c 61 79 20 20 |  (GW-fx|-delay  |
|00000830| 20 20 20 20 20 20 20 3a | 69 6e 69 74 61 72 67 20 |       :|initarg |
|00000840| 3a 47 57 2d 66 78 2d 64 | 65 6c 61 79 0d 20 20 20 |:GW-fx-d|elay.   |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 20 20 20 20 20 3a 61 63 | 63 65 73 73 6f 72 20 47 |     :ac|cessor G|
|00000870| 57 2d 66 78 2d 64 65 6c | 61 79 29 0d 20 20 20 28 |W-fx-del|ay).   (|
|00000880| 47 57 2d 77 69 70 65 2d | 63 6f 75 6e 74 20 20 20 |GW-wipe-|count   |
|00000890| 20 20 20 20 3a 69 6e 69 | 74 61 72 67 20 3a 47 57 |    :ini|targ :GW|
|000008a0| 2d 77 69 70 65 2d 63 6f | 75 6e 74 0d 20 20 20 20 |-wipe-co|unt.    |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008c0| 20 20 20 20 3a 61 63 63 | 65 73 73 6f 72 20 47 57 |    :acc|essor GW|
|000008d0| 2d 77 69 70 65 2d 63 6f | 75 6e 74 29 0d 20 20 20 |-wipe-co|unt).   |
|000008e0| 28 47 57 2d 66 72 65 65 | 2d 6f 6e 2d 72 65 6d 6f |(GW-free|-on-remo|
|000008f0| 76 65 2d 70 20 3a 69 6e | 69 74 61 72 67 20 3a 47 |ve-p :in|itarg :G|
|00000900| 57 2d 66 72 65 65 2d 6f | 6e 2d 72 65 6d 6f 76 65 |W-free-o|n-remove|
|00000910| 2d 70 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-p.     |        |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 3a 61 63 63 65 |        |   :acce|
|00000930| 73 73 6f 72 20 47 57 2d | 66 72 65 65 2d 6f 6e 2d |ssor GW-|free-on-|
|00000940| 72 65 6d 6f 76 65 2d 70 | 29 0d 20 20 20 29 0d 20 |remove-p|).   ). |
|00000950| 20 0d 20 20 28 3a 64 65 | 66 61 75 6c 74 2d 69 6e | .  (:de|fault-in|
|00000960| 69 74 61 72 67 73 0d 20 | 20 20 20 3a 47 57 2d 6e |itargs. |   :GW-n|
|00000970| 75 6d 2d 73 6c 69 64 65 | 73 20 20 20 20 20 20 20 |um-slide|s       |
|00000980| 31 0d 20 20 20 20 3a 47 | 57 2d 63 75 72 72 65 6e |1.    :G|W-curren|
|00000990| 74 2d 73 6c 69 64 65 20 | 20 20 20 30 0d 20 20 20 |t-slide |   0.   |
|000009a0| 20 3a 47 57 2d 64 65 70 | 74 68 20 20 20 20 20 20 | :GW-dep|th      |
|000009b0| 20 20 20 20 20 20 38 0d | 20 20 20 20 0d 20 20 20 |      8.|    .   |
|000009c0| 20 3a 47 57 2d 63 6f 70 | 79 2d 6d 6f 64 65 20 20 | :GW-cop|y-mode  |
|000009d0| 20 20 20 20 20 20 23 24 | 73 72 63 43 6f 70 79 0d |      #$|srcCopy.|
|000009e0| 20 20 20 20 3a 47 57 2d | 63 6f 70 79 2d 72 67 6e |    :GW-|copy-rgn|
|000009f0| 20 20 20 20 20 20 20 20 | 20 28 25 6e 75 6c 6c 2d |        | (%null-|
|00000a00| 70 74 72 29 0d 20 20 20 | 20 3a 47 57 2d 66 6f 72 |ptr).   | :GW-for|
|00000a10| 65 2d 63 6f 6c 6f 72 20 | 20 20 20 20 20 20 2a 62 |e-color |      *b|
|00000a20| 6c 61 63 6b 2d 63 6f 6c | 6f 72 2a 0d 20 20 20 20 |lack-col|or*.    |
|00000a30| 3a 47 57 2d 62 61 63 6b | 2d 63 6f 6c 6f 72 20 20 |:GW-back|-color  |
|00000a40| 20 20 20 20 20 2a 77 68 | 69 74 65 2d 63 6f 6c 6f |     *wh|ite-colo|
|00000a50| 72 2a 0d 20 20 20 20 0d | 20 20 20 20 3a 47 57 2d |r*.    .|    :GW-|
|00000a60| 75 70 64 61 74 65 2d 66 | 78 20 20 20 20 20 20 20 |update-f|x       |
|00000a70| 20 3a 6e 6f 6e 65 0d 20 | 20 20 20 3a 47 57 2d 73 | :none. |   :GW-s|
|00000a80| 6c 69 64 65 2d 66 78 20 | 20 20 20 20 20 20 20 20 |lide-fx |        |
|00000a90| 3a 74 72 61 6e 73 70 6f | 72 74 65 72 0d 20 20 20 |:transpo|rter.   |
|00000aa0| 20 3a 47 57 2d 66 78 2d | 64 65 6c 61 79 20 20 20 | :GW-fx-|delay   |
|00000ab0| 20 20 20 20 20 20 30 0d | 20 20 20 20 3a 47 57 2d |      0.|    :GW-|
|00000ac0| 77 69 70 65 2d 63 6f 75 | 6e 74 20 20 20 20 20 20 |wipe-cou|nt      |
|00000ad0| 20 38 0d 20 20 20 20 3a | 47 57 2d 66 72 65 65 2d | 8.    :|GW-free-|
|00000ae0| 6f 6e 2d 72 65 6d 6f 76 | 65 2d 70 20 74 0d 20 20 |on-remov|e-p t.  |
|00000af0| 20 20 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |  ))..(d|efmethod|
|00000b00| 20 69 6e 69 74 69 61 6c | 69 7a 65 2d 69 6e 73 74 | initial|ize-inst|
|00000b10| 61 6e 63 65 20 3a 61 66 | 74 65 72 20 28 28 73 76 |ance :af|ter ((sv|
|00000b20| 20 47 57 6f 72 6c 64 2d | 73 76 6d 29 20 26 72 65 | GWorld-|svm) &re|
|00000b30| 73 74 20 69 6e 69 74 61 | 72 67 73 20 26 6b 65 79 |st inita|rgs &key|
|00000b40| 20 26 61 6c 6c 6f 77 2d | 6f 74 68 65 72 2d 6b 65 | &allow-|other-ke|
|00000b50| 79 73 29 0d 20 20 28 64 | 65 63 6c 61 72 65 20 28 |ys).  (d|eclare (|
|00000b60| 64 79 6e 61 6d 69 63 2d | 65 78 74 65 6e 74 20 69 |dynamic-|extent i|
|00000b70| 6e 69 74 61 72 67 73 29 | 29 0d 20 20 28 75 6e 6c |nitargs)|).  (unl|
|00000b80| 65 73 73 20 28 73 6c 6f | 74 2d 62 6f 75 6e 64 70 |ess (slo|t-boundp|
|00000b90| 20 73 76 20 27 47 57 6f | 72 6c 64 2d 76 69 65 77 | sv 'GWo|rld-view|
|00000ba0| 29 0d 20 20 20 20 28 73 | 65 74 66 20 28 47 57 6f |).    (s|etf (GWo|
|00000bb0| 72 6c 64 2d 76 69 65 77 | 20 73 76 29 20 28 61 70 |rld-view| sv) (ap|
|00000bc0| 70 6c 79 20 23 27 6d 61 | 6b 65 2d 69 6e 73 74 61 |ply #'ma|ke-insta|
|00000bd0| 6e 63 65 20 27 47 57 6f | 72 6c 64 2d 76 69 65 77 |nce 'GWo|rld-view|
|00000be0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c00| 20 20 20 3a 76 69 65 77 | 2d 73 69 7a 65 20 20 20 |   :view|-size   |
|00000c10| 20 20 20 20 20 28 47 57 | 6f 72 6c 64 2d 74 6f 74 |     (GW|orld-tot|
|00000c20| 61 6c 2d 73 6c 69 64 65 | 2d 73 69 7a 65 20 73 76 |al-slide|-size sv|
|00000c30| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c50| 20 20 20 20 3a 76 69 65 | 77 2d 70 6f 73 69 74 69 |    :vie|w-positi|
|00000c60| 6f 6e 20 20 20 20 28 47 | 57 6f 72 6c 64 2d 63 6f |on    (G|World-co|
|00000c70| 72 6e 65 72 73 20 73 76 | 29 0d 20 20 20 20 20 20 |rners sv|).      |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 61 6c 6c |        |    :all|
|00000ca0| 6f 77 2d 6f 74 68 65 72 | 2d 6b 65 79 73 20 74 0d |ow-other|-keys t.|
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000cd0| 20 20 69 6e 69 74 61 72 | 67 73 29 29 29 29 0d 0d |  initar|gs))))..|
|00000ce0| 28 64 65 66 6d 65 74 68 | 6f 64 20 69 6e 73 74 61 |(defmeth|od insta|
|00000cf0| 6c 6c 2d 76 69 65 77 2d | 69 6e 2d 77 69 6e 64 6f |ll-view-|in-windo|
|00000d00| 77 20 3a 61 66 74 65 72 | 20 28 28 73 76 20 47 57 |w :after| ((sv GW|
|00000d10| 6f 72 6c 64 2d 73 76 6d | 29 20 77 29 0d 20 20 28 |orld-svm|) w).  (|
|00000d20| 64 65 63 6c 61 72 65 20 | 28 69 67 6e 6f 72 65 20 |declare |(ignore |
|00000d30| 77 29 29 0d 20 20 28 47 | 57 6f 72 6c 64 2d 61 6c |w)).  (G|World-al|
|00000d40| 6c 6f 63 20 28 47 57 6f | 72 6c 64 2d 76 69 65 77 |loc (GWo|rld-view|
|00000d50| 20 73 76 29 29 0d 20 20 | 28 6c 65 74 20 28 28 69 | sv)).  |(let ((i|
|00000d60| 6e 73 74 61 6c 6c 2d 63 | 6f 6d 70 6c 65 74 65 20 |nstall-c|omplete |
|00000d70| 6e 69 6c 29 29 0d 20 20 | 20 20 28 75 6e 77 69 6e |nil)).  |  (unwin|
|00000d80| 64 2d 70 72 6f 74 65 63 | 74 0d 20 20 20 20 20 20 |d-protec|t.      |
|00000d90| 28 70 72 6f 67 6e 0d 20 | 20 20 20 20 20 20 20 28 |(progn. |       (|
|00000da0| 47 57 6f 72 6c 64 2d 69 | 6e 69 74 2d 73 6c 69 64 |GWorld-i|nit-slid|
|00000db0| 65 73 20 73 76 29 0d 20 | 20 20 20 20 20 20 20 28 |es sv). |       (|
|00000dc0| 73 65 74 66 20 69 6e 73 | 74 61 6c 6c 2d 63 6f 6d |setf ins|tall-com|
|00000dd0| 70 6c 65 74 65 20 74 29 | 29 0d 20 20 20 20 20 20 |plete t)|).      |
|00000de0| 28 75 6e 6c 65 73 73 20 | 69 6e 73 74 61 6c 6c 2d |(unless |install-|
|00000df0| 63 6f 6d 70 6c 65 74 65 | 0d 20 20 20 20 20 20 20 |complete|.       |
|00000e00| 20 28 77 68 65 6e 20 28 | 47 57 2d 66 72 65 65 2d | (when (|GW-free-|
|00000e10| 6f 6e 2d 72 65 6d 6f 76 | 65 2d 70 20 73 76 29 0d |on-remov|e-p sv).|
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 28 47 57 6f 72 6c |        |  (GWorl|
|00000e30| 64 2d 66 72 65 65 20 28 | 47 57 6f 72 6c 64 2d 76 |d-free (|GWorld-v|
|00000e40| 69 65 77 20 73 76 29 29 | 29 29 29 29 29 0d 0d 28 |iew sv))|)))))..(|
|00000e50| 64 65 66 6d 65 74 68 6f | 64 20 72 65 6d 6f 76 65 |defmetho|d remove|
|00000e60| 2d 76 69 65 77 2d 66 72 | 6f 6d 2d 77 69 6e 64 6f |-view-fr|om-windo|
|00000e70| 77 20 3a 61 66 74 65 72 | 20 28 28 73 76 20 47 57 |w :after| ((sv GW|
|00000e80| 6f 72 6c 64 2d 73 76 6d | 29 29 0d 20 20 28 77 68 |orld-svm|)).  (wh|
|00000e90| 65 6e 20 28 47 57 2d 66 | 72 65 65 2d 6f 6e 2d 72 |en (GW-f|ree-on-r|
|00000ea0| 65 6d 6f 76 65 2d 70 20 | 73 76 29 0d 20 20 20 20 |emove-p |sv).    |
|00000eb0| 28 47 57 6f 72 6c 64 2d | 66 72 65 65 20 28 47 57 |(GWorld-|free (GW|
|00000ec0| 6f 72 6c 64 2d 76 69 65 | 77 20 73 76 29 29 29 29 |orld-vie|w sv))))|
|00000ed0| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 76 69 65 |..(defme|thod vie|
|00000ee0| 77 2d 64 72 61 77 2d 63 | 6f 6e 74 65 6e 74 73 20 |w-draw-c|ontents |
|00000ef0| 28 28 73 76 20 47 57 6f | 72 6c 64 2d 73 76 6d 29 |((sv GWo|rld-svm)|
|00000f00| 29 0d 20 20 28 47 57 6f | 72 6c 64 2d 73 68 6f 77 |).  (GWo|rld-show|
|00000f10| 2d 63 75 72 72 65 6e 74 | 2d 73 6c 69 64 65 20 73 |-current|-slide s|
|00000f20| 76 20 28 47 57 2d 75 70 | 64 61 74 65 2d 66 78 20 |v (GW-up|date-fx |
|00000f30| 73 76 29 29 29 0d 0d 28 | 64 65 66 6d 65 74 68 6f |sv)))..(|defmetho|
|00000f40| 64 20 73 65 74 2d 76 69 | 65 77 2d 73 69 7a 65 20 |d set-vi|ew-size |
|00000f50| 3a 61 66 74 65 72 20 28 | 28 73 76 20 47 57 6f 72 |:after (|(sv GWor|
|00000f60| 6c 64 2d 73 76 6d 29 20 | 68 20 26 6f 70 74 69 6f |ld-svm) |h &optio|
|00000f70| 6e 61 6c 20 76 29 0d 20 | 20 28 64 65 63 6c 61 72 |nal v). | (declar|
|00000f80| 65 20 28 69 67 6e 6f 72 | 65 20 68 20 76 29 29 0d |e (ignor|e h v)).|
|00000f90| 20 20 28 73 65 74 2d 76 | 69 65 77 2d 73 69 7a 65 |  (set-v|iew-size|
|00000fa0| 20 28 47 57 6f 72 6c 64 | 2d 76 69 65 77 20 73 76 | (GWorld|-view sv|
|00000fb0| 29 20 28 47 57 6f 72 6c | 64 2d 74 6f 74 61 6c 2d |) (GWorl|d-total-|
|00000fc0| 73 6c 69 64 65 2d 73 69 | 7a 65 20 73 76 29 29 0d |slide-si|ze sv)).|
|00000fd0| 20 20 28 47 57 6f 72 6c | 64 2d 75 70 64 61 74 65 |  (GWorl|d-update|
|00000fe0| 20 73 76 29 0d 20 20 28 | 65 72 61 73 65 2d 76 69 | sv).  (|erase-vi|
|00000ff0| 65 77 20 73 76 29 29 0d | 0d 28 64 65 66 6d 65 74 |ew sv)).|.(defmet|
|00001000| 68 6f 64 20 28 73 65 74 | 66 20 47 57 2d 6e 75 6d |hod (set|f GW-num|
|00001010| 2d 73 6c 69 64 65 73 29 | 20 3a 61 66 74 65 72 20 |-slides)| :after |
|00001020| 28 6e 75 6d 2d 73 6c 69 | 64 65 73 20 28 73 76 20 |(num-sli|des (sv |
|00001030| 47 57 6f 72 6c 64 2d 73 | 76 6d 29 29 0d 20 20 28 |GWorld-s|vm)).  (|
|00001040| 64 65 63 6c 61 72 65 20 | 28 69 67 6e 6f 72 65 20 |declare |(ignore |
|00001050| 6e 75 6d 2d 73 6c 69 64 | 65 73 29 29 0d 20 20 28 |num-slid|es)).  (|
|00001060| 73 65 74 2d 76 69 65 77 | 2d 73 69 7a 65 20 28 47 |set-view|-size (G|
|00001070| 57 6f 72 6c 64 2d 76 69 | 65 77 20 73 76 29 20 28 |World-vi|ew sv) (|
|00001080| 47 57 6f 72 6c 64 2d 74 | 6f 74 61 6c 2d 73 6c 69 |GWorld-t|otal-sli|
|00001090| 64 65 2d 73 69 7a 65 20 | 73 76 29 29 0d 20 20 28 |de-size |sv)).  (|
|000010a0| 47 57 6f 72 6c 64 2d 75 | 70 64 61 74 65 20 73 76 |GWorld-u|pdate sv|
|000010b0| 29 29 0d 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |))..;;;;|;;;;;;;;|
|000010c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000010d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000010e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000010f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0d 0d 28 65 76 61 |;;;;;;;;|;;..(eva|
|00001100| 6c 2d 77 68 65 6e 20 28 | 3a 63 6f 6d 70 69 6c 65 |l-when (|:compile|
|00001110| 2d 74 6f 70 6c 65 76 65 | 6c 20 3a 6c 6f 61 64 2d |-topleve|l :load-|
|00001120| 74 6f 70 6c 65 76 65 6c | 20 3a 65 78 65 63 75 74 |toplevel| :execut|
|00001130| 65 29 0d 20 20 0d 20 20 | 28 64 65 66 6d 61 63 72 |e).  .  |(defmacr|
|00001140| 6f 20 77 69 74 68 2d 47 | 57 2d 73 6c 69 64 65 20 |o with-G|W-slide |
|00001150| 28 28 73 76 20 73 6c 69 | 64 65 2d 6e 75 6d 29 20 |((sv sli|de-num) |
|00001160| 26 62 6f 64 79 20 62 6f | 64 79 29 0d 20 20 20 20 |&body bo|dy).    |
|00001170| 28 6c 65 74 20 28 28 63 | 75 72 2d 6f 72 69 67 69 |(let ((c|ur-origi|
|00001180| 6e 20 28 67 65 6e 73 79 | 6d 29 29 29 0d 20 20 20 |n (gensy|m))).   |
|00001190| 20 20 20 60 28 6c 65 74 | 20 28 28 2c 63 75 72 2d |   `(let| ((,cur-|
|000011a0| 6f 72 69 67 69 6e 20 28 | 76 69 65 77 2d 6f 72 69 |origin (|view-ori|
|000011b0| 67 69 6e 20 28 47 57 6f | 72 6c 64 2d 76 69 65 77 |gin (GWo|rld-view|
|000011c0| 20 2c 73 76 29 29 29 29 | 0d 20 20 20 20 20 20 20 | ,sv))))|.       |
|000011d0| 20 20 28 47 57 6f 72 6c | 64 2d 73 65 74 2d 6f 72 |  (GWorl|d-set-or|
|000011e0| 69 67 69 6e 20 28 47 57 | 6f 72 6c 64 2d 76 69 65 |igin (GW|orld-vie|
|000011f0| 77 20 2c 73 76 29 20 28 | 47 57 6f 72 6c 64 2d 73 |w ,sv) (|GWorld-s|
|00001200| 6c 69 64 65 2d 6f 72 69 | 67 69 6e 20 2c 73 76 20 |lide-ori|gin ,sv |
|00001210| 2c 73 6c 69 64 65 2d 6e | 75 6d 29 29 0d 20 20 20 |,slide-n|um)).   |
|00001220| 20 20 20 20 20 20 28 75 | 6e 77 69 6e 64 2d 70 72 |      (u|nwind-pr|
|00001230| 6f 74 65 63 74 0d 20 20 | 20 20 20 20 20 20 20 20 |otect.  |        |
|00001240| 20 28 70 72 6f 67 6e 20 | 2c 40 62 6f 64 79 29 0d | (progn |,@body).|
|00001250| 20 20 20 20 20 20 20 20 | 20 20 20 28 47 57 6f 72 |        |   (GWor|
|00001260| 6c 64 2d 73 65 74 2d 6f | 72 69 67 69 6e 20 28 47 |ld-set-o|rigin (G|
|00001270| 57 6f 72 6c 64 2d 76 69 | 65 77 20 2c 73 76 29 20 |World-vi|ew ,sv) |
|00001280| 2c 63 75 72 2d 6f 72 69 | 67 69 6e 29 29 29 29 29 |,cur-ori|gin)))))|
|00001290| 0d 0d 20 20 28 64 65 66 | 6d 61 63 72 6f 20 77 69 |..  (def|macro wi|
|000012a0| 74 68 2d 6c 6f 63 6b 65 | 64 2d 47 57 2d 73 6c 69 |th-locke|d-GW-sli|
|000012b0| 64 65 20 28 28 73 76 20 | 73 6c 69 64 65 2d 6e 75 |de ((sv |slide-nu|
|000012c0| 6d 29 20 26 62 6f 64 79 | 20 62 6f 64 79 29 0d 20 |m) &body| body). |
|000012d0| 20 20 20 60 28 77 69 74 | 68 2d 47 57 2d 73 6c 69 |   `(wit|h-GW-sli|
|000012e0| 64 65 20 28 2c 73 76 20 | 2c 73 6c 69 64 65 2d 6e |de (,sv |,slide-n|
|000012f0| 75 6d 29 0d 20 20 20 20 | 20 20 20 28 77 69 74 68 |um).    |   (with|
|00001300| 2d 6c 6f 63 6b 65 64 2d | 47 57 6f 72 6c 64 2d 76 |-locked-|GWorld-v|
|00001310| 69 65 77 20 28 47 57 6f | 72 6c 64 2d 76 69 65 77 |iew (GWo|rld-view|
|00001320| 20 2c 73 76 29 0d 20 20 | 20 20 20 20 20 20 20 2c | ,sv).  |       ,|
|00001330| 40 62 6f 64 79 29 29 29 | 0d 0d 20 20 28 64 65 66 |@body)))|..  (def|
|00001340| 6d 61 63 72 6f 20 77 69 | 74 68 2d 66 6f 63 75 73 |macro wi|th-focus|
|00001350| 65 64 2d 47 57 2d 73 6c | 69 64 65 20 28 28 73 76 |ed-GW-sl|ide ((sv|
|00001360| 20 73 6c 69 64 65 2d 6e | 75 6d 29 20 26 62 6f 64 | slide-n|um) &bod|
|00001370| 79 20 62 6f 64 79 29 0d | 20 20 20 20 60 28 77 69 |y body).|    `(wi|
|00001380| 74 68 2d 47 57 2d 73 6c | 69 64 65 20 28 2c 73 76 |th-GW-sl|ide (,sv|
|00001390| 20 2c 73 6c 69 64 65 2d | 6e 75 6d 29 0d 20 20 20 | ,slide-|num).   |
|000013a0| 20 20 20 20 28 77 69 74 | 68 2d 66 6f 63 75 73 65 |    (wit|h-focuse|
|000013b0| 64 2d 76 69 65 77 20 28 | 47 57 6f 72 6c 64 2d 76 |d-view (|GWorld-v|
|000013c0| 69 65 77 20 2c 73 76 29 | 0d 20 20 20 20 20 20 20 |iew ,sv)|.       |
|000013d0| 20 20 2c 40 62 6f 64 79 | 29 29 29 0d 0d 20 20 29 |  ,@body|)))..  )|
|000013e0| 0d 0d 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |..;;;;;;|;;;;;;;;|
|000013f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001400| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001410| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001420| 3b 3b 3b 3b 3b 3b 3b 3b | 0d 0d 0d 28 64 65 66 6d |;;;;;;;;|...(defm|
|00001430| 65 74 68 6f 64 20 47 57 | 6f 72 6c 64 2d 6d 61 72 |ethod GW|orld-mar|
|00001440| 67 69 6e 73 20 28 28 73 | 76 20 47 57 6f 72 6c 64 |gins ((s|v GWorld|
|00001450| 2d 73 76 6d 29 29 0d 20 | 20 28 64 65 63 6c 61 72 |-svm)). | (declar|
|00001460| 65 20 28 69 67 6e 6f 72 | 65 20 73 76 29 29 0d 20 |e (ignor|e sv)). |
|00001470| 20 28 76 61 6c 75 65 73 | 20 23 40 28 30 20 30 29 | (values| #@(0 0)|
|00001480| 20 23 40 28 30 20 30 29 | 29 29 0d 0d 28 64 65 66 | #@(0 0)|))..(def|
|00001490| 6d 65 74 68 6f 64 20 47 | 57 6f 72 6c 64 2d 63 6f |method G|World-co|
|000014a0| 72 6e 65 72 73 20 28 28 | 73 76 20 47 57 6f 72 6c |rners ((|sv GWorl|
|000014b0| 64 2d 73 76 6d 29 29 0d | 20 20 28 6d 75 6c 74 69 |d-svm)).|  (multi|
|000014c0| 70 6c 65 2d 76 61 6c 75 | 65 2d 62 69 6e 64 20 28 |ple-valu|e-bind (|
|000014d0| 74 6f 70 4c 65 66 74 20 | 62 6f 74 52 69 67 68 74 |topLeft |botRight|
|000014e0| 29 20 28 66 6f 63 75 73 | 65 64 2d 63 6f 72 6e 65 |) (focus|ed-corne|
|000014f0| 72 73 20 73 76 29 0d 20 | 20 20 20 28 6d 75 6c 74 |rs sv). |   (mult|
|00001500| 69 70 6c 65 2d 76 61 6c | 75 65 2d 62 69 6e 64 20 |iple-val|ue-bind |
|00001510| 28 74 6c 2d 6d 61 72 67 | 69 6e 20 62 72 2d 6d 61 |(tl-marg|in br-ma|
|00001520| 72 67 69 6e 29 20 28 47 | 57 6f 72 6c 64 2d 6d 61 |rgin) (G|World-ma|
|00001530| 72 67 69 6e 73 20 73 76 | 29 0d 20 20 20 20 20 20 |rgins sv|).      |
|00001540| 28 76 61 6c 75 65 73 20 | 28 61 64 64 2d 70 6f 69 |(values |(add-poi|
|00001550| 6e 74 73 20 74 6f 70 4c | 65 66 74 20 74 6c 2d 6d |nts topL|eft tl-m|
|00001560| 61 72 67 69 6e 29 20 28 | 73 75 62 74 72 61 63 74 |argin) (|subtract|
|00001570| 2d 70 6f 69 6e 74 73 20 | 62 6f 74 52 69 67 68 74 |-points |botRight|
|00001580| 20 62 72 2d 6d 61 72 67 | 69 6e 29 29 29 29 29 0d | br-marg|in))))).|
|00001590| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 47 57 6f 72 |.(defmet|hod GWor|
|000015a0| 6c 64 2d 73 6c 69 64 65 | 2d 73 69 7a 65 20 28 28 |ld-slide|-size ((|
|000015b0| 73 76 20 47 57 6f 72 6c | 64 2d 73 76 6d 29 29 0d |sv GWorl|d-svm)).|
|000015c0| 20 20 28 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 |  (multi|ple-valu|
|000015d0| 65 2d 62 69 6e 64 20 28 | 74 6f 70 4c 65 66 74 20 |e-bind (|topLeft |
|000015e0| 62 6f 74 52 69 67 68 74 | 29 20 28 47 57 6f 72 6c |botRight|) (GWorl|
|000015f0| 64 2d 63 6f 72 6e 65 72 | 73 20 73 76 29 0d 20 20 |d-corner|s sv).  |
|00001600| 20 20 28 73 75 62 74 72 | 61 63 74 2d 70 6f 69 6e |  (subtr|act-poin|
|00001610| 74 73 20 62 6f 74 52 69 | 67 68 74 20 74 6f 70 4c |ts botRi|ght topL|
|00001620| 65 66 74 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |eft)))..|(defmeth|
|00001630| 6f 64 20 47 57 6f 72 6c | 64 2d 74 6f 74 61 6c 2d |od GWorl|d-total-|
|00001640| 73 6c 69 64 65 2d 73 69 | 7a 65 20 28 28 73 76 20 |slide-si|ze ((sv |
|00001650| 47 57 6f 72 6c 64 2d 73 | 76 6d 29 29 0d 20 20 28 |GWorld-s|vm)).  (|
|00001660| 6c 65 74 20 28 28 73 6c | 69 64 65 2d 73 69 7a 65 |let ((sl|ide-size|
|00001670| 20 28 47 57 6f 72 6c 64 | 2d 73 6c 69 64 65 2d 73 | (GWorld|-slide-s|
|00001680| 69 7a 65 20 73 76 29 29 | 29 0d 20 20 20 20 28 6d |ize sv))|).    (m|
|00001690| 61 6b 65 2d 70 6f 69 6e | 74 20 28 70 6f 69 6e 74 |ake-poin|t (point|
|000016a0| 2d 68 20 73 6c 69 64 65 | 2d 73 69 7a 65 29 0d 20 |-h slide|-size). |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|000016c0| 2a 20 28 47 57 2d 6e 75 | 6d 2d 73 6c 69 64 65 73 |* (GW-nu|m-slides|
|000016d0| 20 73 76 29 20 28 70 6f | 69 6e 74 2d 76 20 73 6c | sv) (po|int-v sl|
|000016e0| 69 64 65 2d 73 69 7a 65 | 29 29 29 29 29 0d 0d 28 |ide-size|)))))..(|
|000016f0| 64 65 66 6d 65 74 68 6f | 64 20 47 57 6f 72 6c 64 |defmetho|d GWorld|
|00001700| 2d 69 6e 69 74 2d 73 6c | 69 64 65 73 20 28 28 73 |-init-sl|ides ((s|
|00001710| 76 20 47 57 6f 72 6c 64 | 2d 73 76 6d 29 29 0d 20 |v GWorld|-svm)). |
|00001720| 20 28 77 68 65 6e 20 28 | 73 6c 6f 74 2d 62 6f 75 | (when (|slot-bou|
|00001730| 6e 64 70 20 73 76 20 27 | 47 57 2d 69 6e 69 74 2d |ndp sv '|GW-init-|
|00001740| 66 6e 29 0d 20 20 20 20 | 28 64 6f 74 69 6d 65 73 |fn).    |(dotimes|
|00001750| 20 28 69 20 28 47 57 2d | 6e 75 6d 2d 73 6c 69 64 | (i (GW-|num-slid|
|00001760| 65 73 20 73 76 29 29 0d | 20 20 20 20 20 20 28 47 |es sv)).|      (G|
|00001770| 57 6f 72 6c 64 2d 64 72 | 61 77 2d 74 6f 2d 73 6c |World-dr|aw-to-sl|
|00001780| 69 64 65 20 73 76 20 69 | 20 28 47 57 2d 69 6e 69 |ide sv i| (GW-ini|
|00001790| 74 2d 66 6e 20 73 76 29 | 29 29 29 29 0d 0d 28 64 |t-fn sv)|))))..(d|
|000017a0| 65 66 6d 65 74 68 6f 64 | 20 47 57 6f 72 6c 64 2d |efmethod| GWorld-|
|000017b0| 75 70 64 61 74 65 20 28 | 28 73 76 20 47 57 6f 72 |update (|(sv GWor|
|000017c0| 6c 64 2d 73 76 6d 29 29 | 0d 20 20 28 47 57 6f 72 |ld-svm))|.  (GWor|
|000017d0| 6c 64 2d 72 65 61 6c 6c | 6f 63 20 28 47 57 6f 72 |ld-reall|oc (GWor|
|000017e0| 6c 64 2d 76 69 65 77 20 | 73 76 29 29 0d 20 20 28 |ld-view |sv)).  (|
|000017f0| 47 57 6f 72 6c 64 2d 69 | 6e 69 74 2d 73 6c 69 64 |GWorld-i|nit-slid|
|00001800| 65 73 20 73 76 29 0d 20 | 20 28 69 6e 76 61 6c 69 |es sv). | (invali|
|00001810| 64 61 74 65 2d 76 69 65 | 77 20 73 76 20 6e 69 6c |date-vie|w sv nil|
|00001820| 29 29 0d 0d 3b 3b 52 65 | 74 75 72 6e 73 20 74 68 |))..;;Re|turns th|
|00001830| 65 20 47 57 6f 72 6c 64 | 20 6f 72 69 67 69 6e 20 |e GWorld| origin |
|00001840| 74 6f 20 75 73 65 20 74 | 6f 20 70 75 74 20 74 68 |to use t|o put th|
|00001850| 65 20 74 6f 70 4c 65 66 | 74 20 6f 66 20 74 68 65 |e topLef|t of the|
|00001860| 20 73 6c 69 64 65 20 61 | 74 20 23 40 28 30 20 30 | slide a|t #@(0 0|
|00001870| 29 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 47 57 6f |).(defme|thod GWo|
|00001880| 72 6c 64 2d 73 6c 69 64 | 65 2d 6f 72 69 67 69 6e |rld-slid|e-origin|
|00001890| 20 28 28 73 76 20 47 57 | 6f 72 6c 64 2d 73 76 6d | ((sv GW|orld-svm|
|000018a0| 29 20 73 6c 69 64 65 2d | 6e 75 6d 29 0d 20 20 28 |) slide-|num).  (|
|000018b0| 6d 61 6b 65 2d 70 6f 69 | 6e 74 20 30 20 28 2a 20 |make-poi|nt 0 (* |
|000018c0| 2d 31 20 73 6c 69 64 65 | 2d 6e 75 6d 20 28 70 6f |-1 slide|-num (po|
|000018d0| 69 6e 74 2d 76 20 28 47 | 57 6f 72 6c 64 2d 73 6c |int-v (G|World-sl|
|000018e0| 69 64 65 2d 73 69 7a 65 | 20 73 76 29 29 29 29 29 |ide-size| sv)))))|
|000018f0| 0d 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 47 57 |...(defm|ethod GW|
|00001900| 6f 72 6c 64 2d 73 65 74 | 2d 63 75 72 72 65 6e 74 |orld-set|-current|
|00001910| 2d 73 6c 69 64 65 20 28 | 28 73 76 20 47 57 6f 72 |-slide (|(sv GWor|
|00001920| 6c 64 2d 73 76 6d 29 20 | 73 6c 69 64 65 2d 6e 75 |ld-svm) |slide-nu|
|00001930| 6d 20 26 6b 65 79 20 28 | 69 6e 76 61 6c 2d 70 20 |m &key (|inval-p |
|00001940| 6e 69 6c 29 20 28 64 72 | 61 77 2d 6e 6f 77 2d 70 |nil) (dr|aw-now-p|
|00001950| 20 74 29 29 0d 20 20 28 | 77 68 65 6e 20 73 6c 69 | t)).  (|when sli|
|00001960| 64 65 2d 6e 75 6d 0d 20 | 20 20 20 28 75 6e 6c 65 |de-num. |   (unle|
|00001970| 73 73 20 28 61 6e 64 20 | 28 3e 3d 20 73 6c 69 64 |ss (and |(>= slid|
|00001980| 65 2d 6e 75 6d 20 30 29 | 20 28 3c 20 73 6c 69 64 |e-num 0)| (< slid|
|00001990| 65 2d 6e 75 6d 20 28 47 | 57 2d 6e 75 6d 2d 73 6c |e-num (G|W-num-sl|
|000019a0| 69 64 65 73 20 73 76 29 | 29 29 0d 20 20 20 20 20 |ides sv)|)).     |
|000019b0| 20 28 65 72 72 6f 72 20 | 22 73 6c 69 64 65 20 6e | (error |"slide n|
|000019c0| 75 6d 62 65 72 2c 20 7e | 61 2c 20 6f 75 74 20 6f |umber, ~|a, out o|
|000019d0| 66 20 62 6f 75 6e 64 73 | 20 5b 7e 61 2d 7e 61 5d |f bounds| [~a-~a]|
|000019e0| 2e 22 20 73 6c 69 64 65 | 2d 6e 75 6d 20 30 20 28 |." slide|-num 0 (|
|000019f0| 47 57 2d 6e 75 6d 2d 73 | 6c 69 64 65 73 20 73 76 |GW-num-s|lides sv|
|00001a00| 29 29 29 29 0d 20 20 28 | 73 65 74 66 20 28 47 57 |)))).  (|setf (GW|
|00001a10| 2d 63 75 72 72 65 6e 74 | 2d 73 6c 69 64 65 20 73 |-current|-slide s|
|00001a20| 76 29 20 73 6c 69 64 65 | 2d 6e 75 6d 29 0d 20 20 |v) slide|-num).  |
|00001a30| 28 77 68 65 6e 20 69 6e | 76 61 6c 2d 70 20 28 69 |(when in|val-p (i|
|00001a40| 6e 76 61 6c 69 64 61 74 | 65 2d 76 69 65 77 20 73 |nvalidat|e-view s|
|00001a50| 76 20 28 6e 6f 74 20 73 | 6c 69 64 65 2d 6e 75 6d |v (not s|lide-num|
|00001a60| 29 29 29 0d 20 20 28 77 | 68 65 6e 20 64 72 61 77 |))).  (w|hen draw|
|00001a70| 2d 6e 6f 77 2d 70 0d 20 | 20 20 20 28 77 69 74 68 |-now-p. |   (with|
|00001a80| 2d 66 6f 63 75 73 65 64 | 2d 76 69 65 77 20 28 66 |-focused|-view (f|
|00001a90| 6f 63 75 73 69 6e 67 2d | 76 69 65 77 20 73 76 29 |ocusing-|view sv)|
|00001aa0| 0d 20 20 20 20 20 20 28 | 69 66 20 73 6c 69 64 65 |.      (|if slide|
|00001ab0| 2d 6e 75 6d 0d 20 20 20 | 20 20 20 20 20 28 47 57 |-num.   |     (GW|
|00001ac0| 6f 72 6c 64 2d 73 68 6f | 77 2d 63 75 72 72 65 6e |orld-sho|w-curren|
|00001ad0| 74 2d 73 6c 69 64 65 20 | 73 76 20 28 47 57 2d 73 |t-slide |sv (GW-s|
|00001ae0| 6c 69 64 65 2d 66 78 20 | 73 76 29 29 0d 20 20 20 |lide-fx |sv)).   |
|00001af0| 20 20 20 20 20 28 6d 75 | 6c 74 69 70 6c 65 2d 76 |     (mu|ltiple-v|
|00001b00| 61 6c 75 65 2d 62 69 6e | 64 20 28 74 6f 70 4c 65 |alue-bin|d (topLe|
|00001b10| 66 74 20 62 6f 74 52 69 | 67 68 74 29 20 28 47 57 |ft botRi|ght) (GW|
|00001b20| 6f 72 6c 64 2d 63 6f 72 | 6e 65 72 73 20 73 76 29 |orld-cor|ners sv)|
|00001b30| 0d 20 20 20 20 20 20 20 | 20 20 20 28 72 6c 65 74 |.       |   (rlet|
|00001b40| 20 28 28 72 20 3a 52 65 | 63 74 20 3a 74 6f 70 4c | ((r :Re|ct :topL|
|00001b50| 65 66 74 20 74 6f 70 4c | 65 66 74 20 3a 62 6f 74 |eft topL|eft :bot|
|00001b60| 52 69 67 68 74 20 62 6f | 74 52 69 67 68 74 29 29 |Right bo|tRight))|
|00001b70| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 23 5f |.       |     (#_|
|00001b80| 45 72 61 73 65 52 65 63 | 74 20 72 29 29 29 29 29 |EraseRec|t r)))))|
|00001b90| 29 29 0d 20 20 20 20 20 | 20 0d 20 20 20 0d 28 64 |)).     | .   .(d|
|00001ba0| 65 66 6d 65 74 68 6f 64 | 20 47 57 6f 72 6c 64 2d |efmethod| GWorld-|
|00001bb0| 64 72 61 77 2d 74 6f 2d | 73 6c 69 64 65 20 28 28 |draw-to-|slide ((|
|00001bc0| 73 76 20 47 57 6f 72 6c | 64 2d 73 76 6d 29 20 73 |sv GWorl|d-svm) s|
|00001bd0| 6c 69 64 65 2d 6e 75 6d | 20 64 72 61 77 2d 66 6e |lide-num| draw-fn|
|00001be0| 29 0d 20 20 28 77 69 74 | 68 2d 66 6f 63 75 73 65 |).  (wit|h-focuse|
|00001bf0| 64 2d 47 57 2d 73 6c 69 | 64 65 20 28 73 76 20 73 |d-GW-sli|de (sv s|
|00001c00| 6c 69 64 65 2d 6e 75 6d | 29 0d 20 20 20 20 28 66 |lide-num|).    (f|
|00001c10| 75 6e 63 61 6c 6c 20 64 | 72 61 77 2d 66 6e 20 73 |uncall d|raw-fn s|
|00001c20| 76 20 73 6c 69 64 65 2d | 6e 75 6d 20 28 47 57 6f |v slide-|num (GWo|
|00001c30| 72 6c 64 20 28 47 57 6f | 72 6c 64 2d 76 69 65 77 |rld (GWo|rld-view|
|00001c40| 20 73 76 29 29 29 29 29 | 0d 0d 0d 28 64 65 66 6d | sv)))))|...(defm|
|00001c50| 65 74 68 6f 64 20 47 57 | 6f 72 6c 64 2d 73 6c 69 |ethod GW|orld-sli|
|00001c60| 64 65 2d 74 6f 2d 73 6c | 69 64 65 2d 63 6f 70 79 |de-to-sl|ide-copy|
|00001c70| 20 28 28 73 76 20 47 57 | 6f 72 6c 64 2d 73 76 6d | ((sv GW|orld-svm|
|00001c80| 29 20 66 72 6f 6d 2d 73 | 6c 69 64 65 2d 6e 75 6d |) from-s|lide-num|
|00001c90| 20 74 6f 2d 73 6c 69 64 | 65 2d 6e 75 6d 0d 20 20 | to-slid|e-num.  |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cc0| 20 20 20 20 20 26 6b 65 | 79 0d 20 20 20 20 20 20 |     &ke|y.      |
|00001cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cf0| 20 28 66 72 6f 6d 2d 72 | 65 63 74 20 6e 69 6c 29 | (from-r|ect nil)|
|00001d00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d20| 20 20 20 20 20 20 20 20 | 28 74 6f 2d 72 65 63 74 |        |(to-rect|
|00001d30| 20 20 20 6e 69 6c 29 0d | 20 20 20 20 20 20 20 20 |   nil).|        |
|00001d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001d60| 63 6f 70 79 2d 6d 6f 64 | 65 20 23 24 73 72 63 43 |copy-mod|e #$srcC|
|00001d70| 6f 70 79 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |opy).   |        |
|00001d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 63 6f 70 |        |    (cop|
|00001da0| 79 2d 72 67 6e 20 20 28 | 25 6e 75 6c 6c 2d 70 74 |y-rgn  (|%null-pt|
|00001db0| 72 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |r)).    |        |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 28 66 6f 72 65 |        |   (fore|
|00001de0| 2d 63 6f 6c 6f 72 20 2a | 62 6c 61 63 6b 2d 63 6f |-color *|black-co|
|00001df0| 6c 6f 72 2a 29 0d 20 20 | 20 20 20 20 20 20 20 20 |lor*).  |        |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 62 61 |        |     (ba|
|00001e20| 63 6b 2d 63 6f 6c 6f 72 | 20 2a 77 68 69 74 65 2d |ck-color| *white-|
|00001e30| 63 6f 6c 6f 72 2a 29 29 | 0d 20 20 28 72 6c 65 74 |color*))|.  (rlet|
|00001e40| 20 28 28 66 2d 72 65 63 | 74 20 3a 52 65 63 74 0d | ((f-rec|t :Rect.|
|00001e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e60| 20 3a 74 6f 70 4c 65 66 | 74 20 20 28 69 66 20 66 | :topLef|t  (if f|
|00001e70| 72 6f 6d 2d 72 65 63 74 | 20 28 70 72 65 66 20 66 |rom-rect| (pref f|
|00001e80| 72 6f 6d 2d 72 65 63 74 | 20 3a 52 65 63 74 2e 74 |rom-rect| :Rect.t|
|00001e90| 6f 70 4c 65 66 74 29 20 | 20 23 40 28 30 20 30 29 |opLeft) | #@(0 0)|
|00001ea0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001eb0| 20 20 20 3a 62 6f 74 52 | 69 67 68 74 20 28 69 66 |   :botR|ight (if|
|00001ec0| 20 66 72 6f 6d 2d 72 65 | 63 74 20 28 70 72 65 66 | from-re|ct (pref|
|00001ed0| 20 66 72 6f 6d 2d 72 65 | 63 74 20 3a 52 65 63 74 | from-re|ct :Rect|
|00001ee0| 2e 62 6f 74 52 69 67 68 | 74 29 20 28 47 57 6f 72 |.botRigh|t) (GWor|
|00001ef0| 6c 64 2d 73 6c 69 64 65 | 2d 73 69 7a 65 20 73 76 |ld-slide|-size sv|
|00001f00| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 74 2d |))).    |     (t-|
|00001f10| 72 65 63 74 20 3a 52 65 | 63 74 0d 20 20 20 20 20 |rect :Re|ct.     |
|00001f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 74 6f 70 |        |    :top|
|00001f30| 4c 65 66 74 20 20 28 69 | 66 20 74 6f 2d 72 65 63 |Left  (i|f to-rec|
|00001f40| 74 20 28 70 72 65 66 20 | 74 6f 2d 72 65 63 74 20 |t (pref |to-rect |
|00001f50| 3a 52 65 63 74 2e 74 6f | 70 4c 65 66 74 29 20 20 |:Rect.to|pLeft)  |
|00001f60| 23 40 28 30 20 30 29 29 | 0d 20 20 20 20 20 20 20 |#@(0 0))|.       |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 3a 62 6f 74 52 69 |        |  :botRi|
|00001f80| 67 68 74 20 28 69 66 20 | 74 6f 2d 72 65 63 74 20 |ght (if |to-rect |
|00001f90| 28 70 72 65 66 20 74 6f | 2d 72 65 63 74 20 3a 52 |(pref to|-rect :R|
|00001fa0| 65 63 74 2e 62 6f 74 52 | 69 67 68 74 29 20 28 47 |ect.botR|ight) (G|
|00001fb0| 57 6f 72 6c 64 2d 73 6c | 69 64 65 2d 73 69 7a 65 |World-sl|ide-size|
|00001fc0| 20 73 76 29 29 29 29 0d | 20 20 20 20 28 23 5f 4f | sv)))).|    (#_O|
|00001fd0| 66 66 73 65 74 52 65 63 | 74 20 3a 70 6f 69 6e 74 |ffsetRec|t :point|
|00001fe0| 65 72 20 66 2d 72 65 63 | 74 20 3a 6c 6f 6e 67 20 |er f-rec|t :long |
|00001ff0| 28 73 75 62 74 72 61 63 | 74 2d 70 6f 69 6e 74 73 |(subtrac|t-points|
|00002000| 20 28 47 57 6f 72 6c 64 | 2d 73 6c 69 64 65 2d 6f | (GWorld|-slide-o|
|00002010| 72 69 67 69 6e 20 73 76 | 20 74 6f 2d 73 6c 69 64 |rigin sv| to-slid|
|00002020| 65 2d 6e 75 6d 29 0d 20 | 20 20 20 20 20 20 20 20 |e-num). |        |
|00002030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002060| 28 47 57 6f 72 6c 64 2d | 73 6c 69 64 65 2d 6f 72 |(GWorld-|slide-or|
|00002070| 69 67 69 6e 20 73 76 20 | 66 72 6f 6d 2d 73 6c 69 |igin sv |from-sli|
|00002080| 64 65 2d 6e 75 6d 29 29 | 29 0d 20 20 20 20 28 77 |de-num))|).    (w|
|00002090| 69 74 68 2d 66 6f 63 75 | 73 65 64 2d 47 57 2d 73 |ith-focu|sed-GW-s|
|000020a0| 6c 69 64 65 20 28 73 76 | 20 74 6f 2d 73 6c 69 64 |lide (sv| to-slid|
|000020b0| 65 2d 6e 75 6d 29 0d 20 | 20 20 20 20 20 28 77 69 |e-num). |     (wi|
|000020c0| 74 68 2d 66 6f 72 65 2d | 63 6f 6c 6f 72 20 66 6f |th-fore-|color fo|
|000020d0| 72 65 2d 63 6f 6c 6f 72 | 0d 20 20 20 20 20 20 20 |re-color|.       |
|000020e0| 20 28 77 69 74 68 2d 62 | 61 63 6b 2d 63 6f 6c 6f | (with-b|ack-colo|
|000020f0| 72 20 62 61 63 6b 2d 63 | 6f 6c 6f 72 0d 20 20 20 |r back-c|olor.   |
|00002100| 20 20 20 20 20 20 20 28 | 23 5f 43 6f 70 79 42 69 |       (|#_CopyBi|
|00002110| 74 73 20 28 76 69 65 77 | 2d 70 6f 72 74 42 69 74 |ts (view|-portBit|
|00002120| 73 20 28 47 57 6f 72 6c | 64 2d 76 69 65 77 20 73 |s (GWorl|d-view s|
|00002130| 76 29 29 20 28 76 69 65 | 77 2d 70 6f 72 74 42 69 |v)) (vie|w-portBi|
|00002140| 74 73 20 28 47 57 6f 72 | 6c 64 2d 76 69 65 77 20 |ts (GWor|ld-view |
|00002150| 73 76 29 29 20 66 2d 72 | 65 63 74 20 74 2d 72 65 |sv)) f-r|ect t-re|
|00002160| 63 74 20 63 6f 70 79 2d | 6d 6f 64 65 20 63 6f 70 |ct copy-|mode cop|
|00002170| 79 2d 72 67 6e 29 29 29 | 29 29 29 0d 0d 0d 28 64 |y-rgn)))|)))...(d|
|00002180| 65 66 6d 65 74 68 6f 64 | 20 47 57 6f 72 6c 64 2d |efmethod| GWorld-|
|00002190| 73 63 72 65 65 6e 2d 74 | 6f 2d 73 6c 69 64 65 2d |screen-t|o-slide-|
|000021a0| 63 6f 70 79 20 28 28 73 | 76 20 47 57 6f 72 6c 64 |copy ((s|v GWorld|
|000021b0| 2d 73 76 6d 29 20 73 6c | 69 64 65 2d 6e 75 6d 0d |-svm) sl|ide-num.|
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021e0| 20 20 20 20 20 20 20 20 | 26 6b 65 79 0d 20 20 20 |        |&key.   |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002210| 20 20 20 20 20 28 66 72 | 6f 6d 2d 72 65 63 74 20 |     (fr|om-rect |
|00002220| 6e 69 6c 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |nil).   |        |
|00002230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 74 6f |        |     (to|
|00002250| 2d 72 65 63 74 20 20 20 | 6e 69 6c 29 0d 20 20 20 |-rect   |nil).   |
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002280| 20 20 20 20 20 28 63 6f | 70 79 2d 6d 6f 64 65 20 |     (co|py-mode |
|00002290| 23 24 73 72 63 43 6f 70 | 79 29 0d 20 20 20 20 20 |#$srcCop|y).     |
|000022a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022c0| 20 20 20 28 63 6f 70 79 | 2d 72 67 6e 20 20 28 25 |   (copy|-rgn  (%|
|000022d0| 6e 75 6c 6c 2d 70 74 72 | 29 29 0d 20 20 20 20 20 |null-ptr|)).     |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002300| 20 20 20 28 66 6f 72 65 | 2d 63 6f 6c 6f 72 20 2a |   (fore|-color *|
|00002310| 62 6c 61 63 6b 2d 63 6f | 6c 6f 72 2a 29 0d 20 20 |black-co|lor*).  |
|00002320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002340| 20 20 20 20 20 20 28 62 | 61 63 6b 2d 63 6f 6c 6f |      (b|ack-colo|
|00002350| 72 20 2a 77 68 69 74 65 | 2d 63 6f 6c 6f 72 2a 29 |r *white|-color*)|
|00002360| 29 0d 20 20 28 6d 75 6c | 74 69 70 6c 65 2d 76 61 |).  (mul|tiple-va|
|00002370| 6c 75 65 2d 62 69 6e 64 | 20 28 74 6f 70 4c 65 66 |lue-bind| (topLef|
|00002380| 74 20 62 6f 74 52 69 67 | 68 74 29 20 28 47 57 6f |t botRig|ht) (GWo|
|00002390| 72 6c 64 2d 63 6f 72 6e | 65 72 73 20 73 76 29 0d |rld-corn|ers sv).|
|000023a0| 20 20 20 20 28 72 6c 65 | 74 20 28 28 66 2d 72 65 |    (rle|t ((f-re|
|000023b0| 63 74 20 3a 52 65 63 74 | 0d 20 20 20 20 20 20 20 |ct :Rect|.       |
|000023c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 74 6f 70 |        |    :top|
|000023d0| 4c 65 66 74 20 20 28 69 | 66 20 66 72 6f 6d 2d 72 |Left  (i|f from-r|
|000023e0| 65 63 74 20 28 70 72 65 | 66 20 66 72 6f 6d 2d 72 |ect (pre|f from-r|
|000023f0| 65 63 74 20 3a 52 65 63 | 74 2e 74 6f 70 4c 65 66 |ect :Rec|t.topLef|
|00002400| 74 29 20 20 74 6f 70 4c | 65 66 74 29 0d 20 20 20 |t)  topL|eft).   |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002420| 3a 62 6f 74 52 69 67 68 | 74 20 28 69 66 20 66 72 |:botRigh|t (if fr|
|00002430| 6f 6d 2d 72 65 63 74 20 | 28 70 72 65 66 20 66 72 |om-rect |(pref fr|
|00002440| 6f 6d 2d 72 65 63 74 20 | 3a 52 65 63 74 2e 62 6f |om-rect |:Rect.bo|
|00002450| 74 52 69 67 68 74 29 20 | 62 6f 74 52 69 67 68 74 |tRight) |botRight|
|00002460| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 28 74 |)).     |      (t|
|00002470| 2d 72 65 63 74 20 3a 52 | 65 63 74 0d 20 20 20 20 |-rect :R|ect.    |
|00002480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00002490| 74 6f 70 4c 65 66 74 20 | 20 28 69 66 20 74 6f 2d |topLeft | (if to-|
|000024a0| 72 65 63 74 20 28 70 72 | 65 66 20 74 6f 2d 72 65 |rect (pr|ef to-re|
|000024b0| 63 74 20 3a 52 65 63 74 | 2e 74 6f 70 4c 65 66 74 |ct :Rect|.topLeft|
|000024c0| 29 20 20 23 40 28 30 20 | 30 29 29 0d 20 20 20 20 |)  #@(0 |0)).    |
|000024d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000024e0| 62 6f 74 52 69 67 68 74 | 20 28 69 66 20 74 6f 2d |botRight| (if to-|
|000024f0| 72 65 63 74 20 28 70 72 | 65 66 20 74 6f 2d 72 65 |rect (pr|ef to-re|
|00002500| 63 74 20 3a 52 65 63 74 | 2e 62 6f 74 52 69 67 68 |ct :Rect|.botRigh|
|00002510| 74 29 20 28 47 57 6f 72 | 6c 64 2d 73 6c 69 64 65 |t) (GWor|ld-slide|
|00002520| 2d 73 69 7a 65 20 73 76 | 29 29 29 29 0d 20 20 20 |-size sv|)))).   |
|00002530| 20 20 20 28 77 69 74 68 | 2d 66 6f 63 75 73 65 64 |   (with|-focused|
|00002540| 2d 76 69 65 77 20 28 66 | 6f 63 75 73 69 6e 67 2d |-view (f|ocusing-|
|00002550| 76 69 65 77 20 73 76 29 | 0d 20 20 20 20 20 20 20 |view sv)|.       |
|00002560| 20 28 77 69 74 68 2d 66 | 6f 63 75 73 65 64 2d 47 | (with-f|ocused-G|
|00002570| 57 2d 73 6c 69 64 65 20 | 28 73 76 20 73 6c 69 64 |W-slide |(sv slid|
|00002580| 65 2d 6e 75 6d 29 0d 20 | 20 20 20 20 20 20 20 20 |e-num). |        |
|00002590| 20 28 77 69 74 68 2d 66 | 6f 72 65 2d 63 6f 6c 6f | (with-f|ore-colo|
|000025a0| 72 20 66 6f 72 65 2d 63 | 6f 6c 6f 72 0d 20 20 20 |r fore-c|olor.   |
|000025b0| 20 20 20 20 20 20 20 20 | 20 28 77 69 74 68 2d 62 |        | (with-b|
|000025c0| 61 63 6b 2d 63 6f 6c 6f | 72 20 62 61 63 6b 2d 63 |ack-colo|r back-c|
|000025d0| 6f 6c 6f 72 0d 20 20 20 | 20 20 20 20 20 20 20 20 |olor.   |        |
|000025e0| 20 20 20 20 20 28 23 5f | 43 6f 70 79 42 69 74 73 |     (#_|CopyBits|
|000025f0| 20 28 76 69 65 77 2d 70 | 6f 72 74 42 69 74 73 20 | (view-p|ortBits |
|00002600| 73 76 29 20 28 76 69 65 | 77 2d 70 6f 72 74 42 69 |sv) (vie|w-portBi|
|00002610| 74 73 20 28 47 57 6f 72 | 6c 64 2d 76 69 65 77 20 |ts (GWor|ld-view |
|00002620| 73 76 29 29 20 66 2d 72 | 65 63 74 20 74 2d 72 65 |sv)) f-r|ect t-re|
|00002630| 63 74 20 63 6f 70 79 2d | 6d 6f 64 65 20 63 6f 70 |ct copy-|mode cop|
|00002640| 79 2d 72 67 6e 29 29 29 | 29 29 29 29 29 0d 0d 0d |y-rgn)))|)))))...|
|00002650| 3b 3b 63 6f 70 69 65 73 | 20 74 68 65 20 73 70 65 |;;copies| the spe|
|00002660| 63 69 66 69 65 64 20 73 | 6c 69 64 65 20 6f 6e 20 |cified s|lide on |
|00002670| 73 63 72 65 65 6e 20 75 | 73 69 6e 67 20 74 68 65 |screen u|sing the|
|00002680| 20 73 70 65 63 69 66 69 | 65 64 20 65 66 66 65 63 | specifi|ed effec|
|00002690| 74 0d 3b 3b 4e 6f 74 65 | 3a 20 61 73 73 75 6d 65 |t.;;Note|: assume|
|000026a0| 73 20 69 74 27 73 20 61 | 6c 72 65 61 64 79 20 66 |s it's a|lready f|
|000026b0| 6f 63 75 73 65 64 20 6f | 6e 20 74 68 65 20 70 72 |ocused o|n the pr|
|000026c0| 6f 70 65 72 20 76 69 65 | 77 0d 28 64 65 66 6d 65 |oper vie|w.(defme|
|000026d0| 74 68 6f 64 20 47 57 6f | 72 6c 64 2d 73 68 6f 77 |thod GWo|rld-show|
|000026e0| 2d 63 75 72 72 65 6e 74 | 2d 73 6c 69 64 65 20 28 |-current|-slide (|
|000026f0| 28 73 76 20 47 57 6f 72 | 6c 64 2d 73 76 6d 29 20 |(sv GWor|ld-svm) |
|00002700| 66 78 2d 6b 65 79 29 0d | 20 20 28 77 68 65 6e 20 |fx-key).|  (when |
|00002710| 28 47 57 2d 63 75 72 72 | 65 6e 74 2d 73 6c 69 64 |(GW-curr|ent-slid|
|00002720| 65 20 73 76 29 0d 20 20 | 20 20 28 6d 75 6c 74 69 |e sv).  |  (multi|
|00002730| 70 6c 65 2d 76 61 6c 75 | 65 2d 62 69 6e 64 20 28 |ple-valu|e-bind (|
|00002740| 74 6f 70 4c 65 66 74 20 | 62 6f 74 52 69 67 68 74 |topLeft |botRight|
|00002750| 29 20 28 47 57 6f 72 6c | 64 2d 63 6f 72 6e 65 72 |) (GWorl|d-corner|
|00002760| 73 20 73 76 29 0d 20 20 | 20 20 20 20 28 72 6c 65 |s sv).  |    (rle|
|00002770| 74 20 28 28 77 69 6e 2d | 72 65 63 74 20 3a 52 65 |t ((win-|rect :Re|
|00002780| 63 74 20 3a 74 6f 70 4c | 65 66 74 20 74 6f 70 4c |ct :topL|eft topL|
|00002790| 65 66 74 20 3a 62 6f 74 | 52 69 67 68 74 20 62 6f |eft :bot|Right bo|
|000027a0| 74 52 69 67 68 74 29 0d | 20 20 20 20 20 20 20 20 |tRight).|        |
|000027b0| 20 20 20 20 20 28 67 77 | 2d 72 65 63 74 20 20 3a |     (gw|-rect  :|
|000027c0| 52 65 63 74 20 3a 74 6f | 70 4c 65 66 74 20 23 40 |Rect :to|pLeft #@|
|000027d0| 28 30 20 30 29 20 3a 62 | 6f 74 52 69 67 68 74 20 |(0 0) :b|otRight |
|000027e0| 28 47 57 6f 72 6c 64 2d | 73 6c 69 64 65 2d 73 69 |(GWorld-|slide-si|
|000027f0| 7a 65 20 73 76 29 29 29 | 0d 20 20 20 20 20 20 20 |ze sv)))|.       |
|00002800| 20 28 77 69 74 68 2d 66 | 6f 72 65 2d 63 6f 6c 6f | (with-f|ore-colo|
|00002810| 72 20 28 47 57 2d 66 6f | 72 65 2d 63 6f 6c 6f 72 |r (GW-fo|re-color|
|00002820| 20 73 76 29 0d 20 20 20 | 20 20 20 20 20 20 20 28 | sv).   |       (|
|00002830| 77 69 74 68 2d 62 61 63 | 6b 2d 63 6f 6c 6f 72 20 |with-bac|k-color |
|00002840| 28 47 57 2d 62 61 63 6b | 2d 63 6f 6c 6f 72 20 73 |(GW-back|-color s|
|00002850| 76 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |v).     |       (|
|00002860| 77 69 74 68 2d 6c 6f 63 | 6b 65 64 2d 47 57 2d 73 |with-loc|ked-GW-s|
|00002870| 6c 69 64 65 20 28 73 76 | 20 28 47 57 2d 63 75 72 |lide (sv| (GW-cur|
|00002880| 72 65 6e 74 2d 73 6c 69 | 64 65 20 73 76 29 29 0d |rent-sli|de sv)).|
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 77 |        |      (w|
|000028a0| 69 74 68 2d 6d 61 63 70 | 74 72 73 20 28 28 67 77 |ith-macp|trs ((gw|
|000028b0| 2d 70 6f 72 74 42 69 74 | 73 20 28 76 69 65 77 2d |-portBit|s (view-|
|000028c0| 70 6f 72 74 42 69 74 73 | 20 28 47 57 6f 72 6c 64 |portBits| (GWorld|
|000028d0| 2d 76 69 65 77 20 73 76 | 29 29 29 29 0d 20 20 20 |-view sv|)))).   |
|000028e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 65 63 |        |     (ec|
|000028f0| 61 73 65 20 66 78 2d 6b | 65 79 0d 20 20 20 20 20 |ase fx-k|ey.     |
|00002900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 3a 6e |        |     (:n|
|00002910| 6f 6e 65 20 28 77 69 74 | 68 2d 63 75 72 72 65 6e |one (wit|h-curren|
|00002920| 74 2d 70 6f 72 74 42 69 | 74 73 20 77 69 6e 2d 70 |t-portBi|ts win-p|
|00002930| 6f 72 74 42 69 74 73 0d | 20 20 20 20 20 20 20 20 |ortBits.|        |
|00002940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002950| 20 20 20 28 23 5f 43 6f | 70 79 42 69 74 73 20 67 |   (#_Co|pyBits g|
|00002960| 77 2d 70 6f 72 74 42 69 | 74 73 20 77 69 6e 2d 70 |w-portBi|ts win-p|
|00002970| 6f 72 74 42 69 74 73 20 | 67 77 2d 72 65 63 74 20 |ortBits |gw-rect |
|00002980| 77 69 6e 2d 72 65 63 74 | 20 28 47 57 2d 63 6f 70 |win-rect| (GW-cop|
|00002990| 79 2d 6d 6f 64 65 20 73 | 76 29 20 28 47 57 2d 63 |y-mode s|v) (GW-c|
|000029a0| 6f 70 79 2d 72 67 6e 20 | 73 76 29 29 29 29 0d 20 |opy-rgn |sv)))). |
|000029b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000029c0| 20 28 28 3a 74 72 61 6e | 73 70 6f 72 74 65 72 20 | ((:tran|sporter |
|000029d0| 3a 77 61 79 6e 65 73 2d | 77 6f 72 6c 64 20 3a 73 |:waynes-|world :s|
|000029e0| 63 72 65 65 6e 2d 64 6f | 6f 72 20 3a 76 2d 62 6c |creen-do|or :v-bl|
|000029f0| 69 6e 64 20 3a 68 2d 62 | 6c 69 6e 64 29 0d 20 20 |ind :h-b|lind).  |
|00002a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a10| 20 28 64 69 73 73 6f 6c | 76 65 2d 6f 2d 72 61 6d | (dissol|ve-o-ram|
|00002a20| 61 20 67 77 2d 70 6f 72 | 74 42 69 74 73 20 67 77 |a gw-por|tBits gw|
|00002a30| 2d 72 65 63 74 20 77 69 | 6e 2d 72 65 63 74 0d 20 |-rect wi|n-rect. |
|00002a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a60| 20 20 20 3a 63 6f 70 79 | 2d 6d 6f 64 65 20 20 20 |   :copy|-mode   |
|00002a70| 20 28 47 57 2d 63 6f 70 | 79 2d 6d 6f 64 65 20 73 | (GW-cop|y-mode s|
|00002a80| 76 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |v).     |        |
|00002a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002aa0| 20 20 20 20 20 20 20 3a | 63 6f 70 79 2d 72 67 6e |       :|copy-rgn|
|00002ab0| 20 20 20 20 20 28 47 57 | 2d 63 6f 70 79 2d 72 67 |     (GW|-copy-rg|
|00002ac0| 6e 20 73 76 29 0d 20 20 | 20 20 20 20 20 20 20 20 |n sv).  |        |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ae0| 20 20 20 20 20 20 20 20 | 20 20 3a 64 65 6c 61 79 |        |  :delay|
|00002af0| 2d 74 69 63 6b 73 20 20 | 28 47 57 2d 66 78 2d 64 |-ticks  |(GW-fx-d|
|00002b00| 65 6c 61 79 20 73 76 29 | 0d 20 20 20 20 20 20 20 |elay sv)|.       |
|00002b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 64 69 |        |     :di|
|00002b30| 73 73 6f 6c 76 65 2d 74 | 79 70 65 20 66 78 2d 6b |ssolve-t|ype fx-k|
|00002b40| 65 79 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ey)).   |        |
|00002b50| 20 20 20 20 20 20 20 28 | 28 3a 6c 65 66 74 2d 74 |       (|(:left-t|
|00002b60| 6f 2d 72 69 67 68 74 20 | 3a 72 69 67 68 74 2d 74 |o-right |:right-t|
|00002b70| 6f 2d 6c 65 66 74 20 3a | 74 6f 70 2d 74 6f 2d 62 |o-left :|top-to-b|
|00002b80| 6f 74 74 6f 6d 20 3a 62 | 6f 74 74 6f 6d 2d 74 6f |ottom :b|ottom-to|
|00002b90| 2d 74 6f 70 29 0d 20 20 | 20 20 20 20 20 20 20 20 |-top).  |        |
|00002ba0| 20 20 20 20 20 20 20 20 | 20 28 77 69 70 65 2d 6f |        | (wipe-o|
|00002bb0| 2d 72 61 6d 61 20 67 77 | 2d 70 6f 72 74 42 69 74 |-rama gw|-portBit|
|00002bc0| 73 20 67 77 2d 72 65 63 | 74 20 77 69 6e 2d 72 65 |s gw-rec|t win-re|
|00002bd0| 63 74 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ct.     |        |
|00002be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002bf0| 20 20 20 3a 63 6f 70 79 | 2d 6d 6f 64 65 20 20 20 |   :copy|-mode   |
|00002c00| 20 20 20 28 47 57 2d 63 | 6f 70 79 2d 6d 6f 64 65 |   (GW-c|opy-mode|
|00002c10| 20 73 76 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | sv).   |        |
|00002c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c30| 20 20 20 20 20 3a 63 6f | 70 79 2d 72 67 6e 20 20 |     :co|py-rgn  |
|00002c40| 20 20 20 20 20 28 47 57 | 2d 63 6f 70 79 2d 72 67 |     (GW|-copy-rg|
|00002c50| 6e 20 73 76 29 0d 20 20 | 20 20 20 20 20 20 20 20 |n sv).  |        |
|00002c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c70| 20 20 20 20 20 20 3a 64 | 65 6c 61 79 2d 74 69 63 |      :d|elay-tic|
|00002c80| 6b 73 20 20 20 20 28 47 | 57 2d 66 78 2d 64 65 6c |ks    (G|W-fx-del|
|00002c90| 61 79 20 73 76 29 0d 20 | 20 20 20 20 20 20 20 20 |ay sv). |        |
|00002ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002cb0| 20 20 20 20 20 20 20 3a | 77 69 70 65 2d 63 6f 75 |       :|wipe-cou|
|00002cc0| 6e 74 20 20 20 20 20 28 | 47 57 2d 77 69 70 65 2d |nt     (|GW-wipe-|
|00002cd0| 63 6f 75 6e 74 20 73 76 | 29 0d 20 20 20 20 20 20 |count sv|).      |
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 3a 77 69 70 65 2d |        |  :wipe-|
|00002d00| 64 69 72 65 63 74 69 6f | 6e 20 66 78 2d 6b 65 79 |directio|n fx-key|
|00002d10| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00002d20| 20 20 20 20 20 28 28 3a | 72 6f 75 6e 64 2d 69 72 |     ((:|round-ir|
|00002d30| 69 73 2d 69 6e 20 3a 72 | 6f 75 6e 64 2d 69 72 69 |is-in :r|ound-iri|
|00002d40| 73 2d 6f 75 74 29 0d 20 | 20 20 20 20 20 20 20 20 |s-out). |        |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 28 69 72 69 73 2d |        |  (iris-|
|00002d60| 6f 2d 72 61 6d 61 20 67 | 77 2d 70 6f 72 74 42 69 |o-rama g|w-portBi|
|00002d70| 74 73 20 67 77 2d 72 65 | 63 74 20 77 69 6e 2d 72 |ts gw-re|ct win-r|
|00002d80| 65 63 74 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ect.    |        |
|00002d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002da0| 20 20 20 20 3a 63 6f 70 | 79 2d 6d 6f 64 65 20 20 |    :cop|y-mode  |
|00002db0| 20 20 20 20 28 47 57 2d | 63 6f 70 79 2d 6d 6f 64 |    (GW-|copy-mod|
|00002dc0| 65 20 73 76 29 0d 20 20 | 20 20 20 20 20 20 20 20 |e sv).  |        |
|00002dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002de0| 20 20 20 20 20 20 3a 63 | 6f 70 79 2d 72 67 6e 20 |      :c|opy-rgn |
|00002df0| 20 20 20 20 20 20 28 47 | 57 2d 63 6f 70 79 2d 72 |      (G|W-copy-r|
|00002e00| 67 6e 20 73 76 29 0d 20 | 20 20 20 20 20 20 20 20 |gn sv). |        |
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e20| 20 20 20 20 20 20 20 3a | 64 65 6c 61 79 2d 74 69 |       :|delay-ti|
|00002e30| 63 6b 73 20 20 20 20 28 | 47 57 2d 66 78 2d 64 65 |cks    (|GW-fx-de|
|00002e40| 6c 61 79 20 73 76 29 0d | 20 20 20 20 20 20 20 20 |lay sv).|        |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e60| 20 20 20 20 20 20 20 20 | 3a 69 72 69 73 2d 64 69 |        |:iris-di|
|00002e70| 72 65 63 74 69 6f 6e 20 | 28 65 63 61 73 65 20 66 |rection |(ecase f|
|00002e80| 78 2d 6b 65 79 0d 20 20 | 20 20 20 20 20 20 20 20 |x-key.  |        |
|00002e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002eb0| 20 20 20 20 20 20 20 20 | 28 3a 72 6f 75 6e 64 2d |        |(:round-|
|00002ec0| 69 72 69 73 2d 6f 75 74 | 20 3a 6f 75 74 77 61 72 |iris-out| :outwar|
|00002ed0| 64 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d).     |        |
|00002ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f00| 20 20 20 20 20 28 3a 72 | 6f 75 6e 64 2d 69 72 69 |     (:r|ound-iri|
|00002f10| 73 2d 69 6e 20 20 3a 69 | 6e 77 61 72 64 29 29 0d |s-in  :i|nward)).|
|00002f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f40| 3a 69 72 69 73 2d 73 68 | 61 70 65 20 20 20 20 20 |:iris-sh|ape     |
|00002f50| 3a 72 6f 75 6e 64 29 29 | 0d 20 20 20 20 20 20 20 |:round))|.       |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 3a 73 71 |        |   ((:sq|
|00002f70| 75 61 72 65 2d 69 72 69 | 73 2d 69 6e 20 3a 73 71 |uare-iri|s-in :sq|
|00002f80| 75 61 72 65 2d 69 72 69 | 73 2d 6f 75 74 29 0d 20 |uare-iri|s-out). |
|00002f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002fa0| 20 20 28 69 72 69 73 2d | 6f 2d 72 61 6d 61 20 67 |  (iris-|o-rama g|
|00002fb0| 77 2d 70 6f 72 74 42 69 | 74 73 20 67 77 2d 72 65 |w-portBi|ts gw-re|
|00002fc0| 63 74 20 77 69 6e 2d 72 | 65 63 74 0d 20 20 20 20 |ct win-r|ect.    |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 63 6f 70 |        |    :cop|
|00002ff0| 79 2d 6d 6f 64 65 20 20 | 20 20 20 20 28 47 57 2d |y-mode  |    (GW-|
|00003000| 63 6f 70 79 2d 6d 6f 64 | 65 20 73 76 29 0d 20 20 |copy-mod|e sv).  |
|00003010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 63 |        |      :c|
|00003030| 6f 70 79 2d 72 67 6e 20 | 20 20 20 20 20 20 28 47 |opy-rgn |      (G|
|00003040| 57 2d 63 6f 70 79 2d 72 | 67 6e 20 73 76 29 0d 20 |W-copy-r|gn sv). |
|00003050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00003070| 64 65 6c 61 79 2d 74 69 | 63 6b 73 20 20 20 20 28 |delay-ti|cks    (|
|00003080| 47 57 2d 66 78 2d 64 65 | 6c 61 79 20 73 76 29 0d |GW-fx-de|lay sv).|
|00003090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030b0| 3a 69 72 69 73 2d 64 69 | 72 65 63 74 69 6f 6e 20 |:iris-di|rection |
|000030c0| 28 65 63 61 73 65 20 66 | 78 2d 6b 65 79 0d 20 20 |(ecase f|x-key.  |
|000030d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003100| 28 3a 73 71 75 61 72 65 | 2d 69 72 69 73 2d 6f 75 |(:square|-iris-ou|
|00003110| 74 20 3a 6f 75 74 77 61 | 72 64 29 0d 20 20 20 20 |t :outwa|rd).    |
|00003120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 3a |        |      (:|
|00003150| 73 71 75 61 72 65 2d 69 | 72 69 73 2d 69 6e 20 20 |square-i|ris-in  |
|00003160| 3a 69 6e 77 61 72 64 29 | 29 0d 20 20 20 20 20 20 |:inward)|).      |
|00003170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003180| 20 20 20 20 20 20 20 20 | 20 20 3a 69 72 69 73 2d |        |  :iris-|
|00003190| 73 68 61 70 65 20 20 20 | 20 20 3a 73 71 75 61 72 |shape   |  :squar|
|000031a0| 65 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |e)).    |        |
|000031b0| 20 20 20 20 20 20 29 29 | 29 29 29 29 29 29 29 0d |      ))|))))))).|
|000031c0| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|000031d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000031e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000031f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00003200| 3b 3b 3b 3b 3b 3b 3b 0d | 0d 23 7c 0d 0d 28 6f 6f |;;;;;;;.|.#|..(oo|
|00003210| 75 2d 64 65 70 65 6e 64 | 65 6e 63 69 65 73 20 3a |u-depend|encies :|
|00003220| 50 49 43 54 2d 75 0d 20 | 20 20 20 20 20 20 20 20 |PICT-u. |        |
|00003230| 20 20 20 20 20 20 20 20 | 20 3a 62 61 63 6b 2d 50 |        | :back-P|
|00003240| 49 43 54 29 0d 0d 28 64 | 65 66 63 6c 61 73 73 20 |ICT)..(d|efclass |
|00003250| 6f 66 66 2d 73 63 72 65 | 65 6e 2d 76 69 65 77 20 |off-scre|en-view |
|00003260| 28 47 57 6f 72 6c 64 2d | 73 76 6d 20 76 69 65 77 |(GWorld-|svm view|
|00003270| 29 20 28 29 29 0d 28 64 | 65 66 76 61 72 20 2a 74 |) ()).(d|efvar *t|
|00003280| 65 73 74 2d 77 2a 29 0d | 28 64 65 66 70 61 72 61 |est-w*).|(defpara|
|00003290| 6d 65 74 65 72 20 2a 78 | 70 6f 72 74 2d 63 6f 6f |meter *x|port-coo|
|000032a0| 72 64 69 6e 61 74 65 73 | 2a 20 23 40 28 31 39 38 |rdinates|* #@(198|
|000032b0| 20 31 34 34 29 29 0d 28 | 64 65 66 70 61 72 61 6d | 144)).(|defparam|
|000032c0| 65 74 65 72 20 2a 78 70 | 6f 72 74 2d 64 69 6d 65 |eter *xp|ort-dime|
|000032d0| 6e 73 69 6f 6e 73 2a 20 | 23 40 28 35 39 20 31 38 |nsions* |#@(59 18|
|000032e0| 32 29 29 0d 0d 28 64 65 | 66 75 6e 20 6f 66 66 2d |2))..(de|fun off-|
|000032f0| 69 6e 69 74 20 28 73 76 | 20 66 72 61 6d 65 2d 6e |init (sv| frame-n|
|00003300| 75 6d 20 67 77 29 0d 20 | 20 28 64 65 63 6c 61 72 |um gw). | (declar|
|00003310| 65 20 28 69 67 6e 6f 72 | 65 20 67 77 29 29 0d 20 |e (ignor|e gw)). |
|00003320| 20 28 63 61 73 65 20 66 | 72 61 6d 65 2d 6e 75 6d | (case f|rame-num|
|00003330| 0d 20 20 20 20 28 30 20 | 0d 20 20 20 20 20 28 72 |.    (0 |.     (r|
|00003340| 6c 65 74 20 28 28 72 20 | 3a 52 65 63 74 20 3a 74 |let ((r |:Rect :t|
|00003350| 6f 70 4c 65 66 74 20 28 | 73 75 62 74 72 61 63 74 |opLeft (|subtract|
|00003360| 2d 70 6f 69 6e 74 73 20 | 23 40 28 30 20 30 29 20 |-points |#@(0 0) |
|00003370| 2a 78 70 6f 72 74 2d 63 | 6f 6f 72 64 69 6e 61 74 |*xport-c|oordinat|
|00003380| 65 73 2a 29 29 29 0d 20 | 20 20 20 20 20 20 28 77 |es*))). |      (w|
|00003390| 69 74 68 2d 62 61 63 6b | 2d 63 6f 6c 6f 72 20 28 |ith-back|-color (|
|000033a0| 6d 61 6b 65 2d 63 6f 6c | 6f 72 20 2d 31 20 30 20 |make-col|or -1 0 |
|000033b0| 2d 31 29 20 28 23 5f 45 | 72 61 73 65 52 65 63 74 |-1) (#_E|raseRect|
|000033c0| 20 72 29 29 0d 20 20 20 | 20 20 20 20 28 64 72 61 | r)).   |    (dra|
|000033d0| 77 2d 70 69 63 74 75 72 | 65 2d 66 72 6f 6d 2d 66 |w-pictur|e-from-f|
|000033e0| 69 6c 65 20 22 6f 6f 75 | 3a 65 78 61 6d 70 6c 65 |ile "oou|:example|
|000033f0| 73 3b 63 6f 6c 75 6d 6e | 73 2e 50 49 43 54 22 20 |s;column|s.PICT" |
|00003400| 20 72 20 6e 69 6c 29 0d | 20 20 20 20 20 20 20 29 | r nil).|       )|
|00003410| 29 0d 20 20 20 20 28 31 | 20 0d 20 20 20 20 20 28 |).    (1| .     (|
|00003420| 72 6c 65 74 20 28 28 72 | 20 3a 52 65 63 74 20 3a |rlet ((r| :Rect :|
|00003430| 74 6f 70 4c 65 66 74 20 | 23 40 28 30 20 30 29 20 |topLeft |#@(0 0) |
|00003440| 3a 62 6f 74 52 69 67 68 | 74 20 28 47 57 6f 72 6c |:botRigh|t (GWorl|
|00003450| 64 2d 73 6c 69 64 65 2d | 73 69 7a 65 20 73 76 29 |d-slide-|size sv)|
|00003460| 29 29 0d 20 20 20 20 20 | 20 20 28 77 69 74 68 2d |)).     |  (with-|
|00003470| 62 61 63 6b 2d 63 6f 6c | 6f 72 20 28 6d 61 6b 65 |back-col|or (make|
|00003480| 2d 63 6f 6c 6f 72 20 2d | 31 20 30 20 2d 31 29 20 |-color -|1 0 -1) |
|00003490| 28 23 5f 45 72 61 73 65 | 52 65 63 74 20 72 29 29 |(#_Erase|Rect r))|
|000034a0| 0d 20 20 20 20 20 20 20 | 28 64 72 61 77 2d 70 69 |.       |(draw-pi|
|000034b0| 63 74 75 72 65 2d 66 72 | 6f 6d 2d 66 69 6c 65 20 |cture-fr|om-file |
|000034c0| 22 6f 6f 75 3a 65 78 61 | 6d 70 6c 65 73 3b 6b 69 |"oou:exa|mples;ki|
|000034d0| 72 6b 2e 50 49 43 54 22 | 20 72 20 6e 69 6c 29 29 |rk.PICT"| r nil))|
|000034e0| 29 29 29 0d 0d 28 64 65 | 66 75 6e 20 62 65 61 6d |)))..(de|fun beam|
|000034f0| 20 28 69 6e 2d 70 29 0d | 20 20 28 47 57 6f 72 6c | (in-p).|  (GWorl|
|00003500| 64 2d 73 65 74 2d 63 75 | 72 72 65 6e 74 2d 73 6c |d-set-cu|rrent-sl|
|00003510| 69 64 65 20 28 76 69 65 | 77 2d 6e 61 6d 65 64 20 |ide (vie|w-named |
|00003520| 3a 6f 66 66 20 2a 74 65 | 73 74 2d 77 2a 29 20 28 |:off *te|st-w*) (|
|00003530| 69 66 20 69 6e 2d 70 20 | 31 20 30 29 29 29 0d 0d |if in-p |1 0)))..|
|00003540| 28 64 65 66 75 6e 20 6f | 66 66 2d 66 78 20 28 66 |(defun o|ff-fx (f|
|00003550| 78 29 0d 20 20 28 73 65 | 74 66 20 28 47 57 2d 73 |x).  (se|tf (GW-s|
|00003560| 6c 69 64 65 2d 66 78 20 | 28 76 69 65 77 2d 6e 61 |lide-fx |(view-na|
|00003570| 6d 65 64 20 3a 6f 66 66 | 20 2a 74 65 73 74 2d 77 |med :off| *test-w|
|00003580| 2a 29 29 20 66 78 29 29 | 0d 0d 28 64 65 66 75 6e |*)) fx))|..(defun|
|00003590| 20 64 65 6c 61 79 2d 73 | 65 74 20 28 74 69 63 6b | delay-s|et (tick|
|000035a0| 73 29 0d 20 20 28 73 65 | 74 66 20 28 47 57 2d 66 |s).  (se|tf (GW-f|
|000035b0| 78 2d 64 65 6c 61 79 20 | 28 76 69 65 77 2d 6e 61 |x-delay |(view-na|
|000035c0| 6d 65 64 20 3a 6f 66 66 | 20 2a 74 65 73 74 2d 77 |med :off| *test-w|
|000035d0| 2a 29 29 20 74 69 63 6b | 73 29 29 0d 0d 3b 76 69 |*)) tick|s))..;vi|
|000035e0| 65 77 20 74 68 69 73 20 | 77 69 6e 64 6f 77 20 6f |ew this |window o|
|000035f0| 6e 20 61 20 63 6f 6c 6f | 72 20 6d 6f 6e 69 74 6f |n a colo|r monito|
|00003600| 72 0d 28 73 65 74 66 20 | 2a 74 65 73 74 2d 77 2a |r.(setf |*test-w*|
|00003610| 0d 20 20 20 20 20 20 28 | 6d 61 6b 65 2d 69 6e 73 |.      (|make-ins|
|00003620| 74 61 6e 63 65 0d 20 20 | 20 20 20 20 20 20 27 62 |tance.  |      'b|
|00003630| 61 63 6b 2d 50 49 43 54 | 2d 77 69 6e 64 6f 77 0d |ack-PICT|-window.|
|00003640| 20 20 20 20 20 20 20 20 | 3a 77 69 6e 64 6f 77 2d |        |:window-|
|00003650| 74 79 70 65 20 3a 64 6f | 63 75 6d 65 6e 74 0d 20 |type :do|cument. |
|00003660| 20 20 20 20 20 20 20 3a | 77 69 6e 64 6f 77 2d 74 |       :|window-t|
|00003670| 69 74 6c 65 20 22 54 72 | 61 6e 73 70 6f 72 74 65 |itle "Tr|ansporte|
|00003680| 72 20 44 65 6d 6f 22 0d | 20 20 20 20 20 20 20 20 |r Demo".|        |
|00003690| 3a 63 6f 6c 6f 72 2d 70 | 20 74 0d 20 20 20 20 20 |:color-p| t.     |
|000036a0| 20 20 20 3a 76 69 65 77 | 2d 73 69 7a 65 20 23 40 |   :view|-size #@|
|000036b0| 28 34 36 35 20 34 30 30 | 29 0d 20 20 20 20 20 20 |(465 400|).      |
|000036c0| 20 20 3a 50 49 43 54 2d | 66 69 6c 65 20 22 6f 6f |  :PICT-|file "oo|
|000036d0| 75 3a 65 78 61 6d 70 6c | 65 73 3b 63 6f 6c 75 6d |u:exampl|es;colum|
|000036e0| 6e 73 2e 50 49 43 54 22 | 0d 20 20 20 20 20 20 20 |ns.PICT"|.       |
|000036f0| 20 3a 50 49 43 54 2d 73 | 63 61 6c 69 6e 67 20 3a | :PICT-s|caling :|
|00003700| 61 64 6a 75 73 74 2d 76 | 69 65 77 2d 73 69 7a 65 |adjust-v|iew-size|
|00003710| 0d 20 20 20 20 20 20 20 | 20 3a 50 49 43 54 2d 73 |.       | :PICT-s|
|00003720| 74 6f 72 61 67 65 20 3a | 64 69 73 6b 0d 20 20 20 |torage :|disk.   |
|00003730| 20 20 20 20 20 3a 76 69 | 65 77 2d 73 75 62 76 69 |     :vi|ew-subvi|
|00003740| 65 77 73 0d 20 20 20 20 | 20 20 20 20 28 6c 69 73 |ews.    |    (lis|
|00003750| 74 20 28 6d 61 6b 65 2d | 69 6e 73 74 61 6e 63 65 |t (make-|instance|
|00003760| 20 27 6f 66 66 2d 73 63 | 72 65 65 6e 2d 76 69 65 | 'off-sc|reen-vie|
|00003770| 77 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |w.      |        |
|00003780| 20 20 3a 76 69 65 77 2d | 70 6f 73 69 74 69 6f 6e |  :view-|position|
|00003790| 20 20 20 2a 78 70 6f 72 | 74 2d 63 6f 6f 72 64 69 |   *xpor|t-coordi|
|000037a0| 6e 61 74 65 73 2a 0d 20 | 20 20 20 20 20 20 20 20 |nates*. |        |
|000037b0| 20 20 20 20 20 20 20 3a | 76 69 65 77 2d 73 69 7a |       :|view-siz|
|000037c0| 65 20 20 20 20 20 20 20 | 2a 78 70 6f 72 74 2d 64 |e       |*xport-d|
|000037d0| 69 6d 65 6e 73 69 6f 6e | 73 2a 0d 20 20 20 20 20 |imension|s*.     |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|000037f0| 2d 6e 69 63 6b 2d 6e 61 | 6d 65 20 20 3a 6f 66 66 |-nick-na|me  :off|
|00003800| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003810| 20 3a 47 57 2d 64 65 70 | 74 68 20 20 20 20 20 20 | :GW-dep|th      |
|00003820| 20 20 20 38 0d 20 20 20 | 20 20 20 20 20 20 20 20 |   8.   |        |
|00003830| 20 20 20 20 20 3a 47 57 | 2d 6e 75 6d 2d 73 6c 69 |     :GW|-num-sli|
|00003840| 64 65 73 20 20 20 20 32 | 0d 20 20 20 20 20 20 20 |des    2|.       |
|00003850| 20 20 20 20 20 20 20 20 | 20 3a 47 57 2d 63 75 72 |        | :GW-cur|
|00003860| 72 65 6e 74 2d 73 6c 69 | 64 65 20 30 0d 20 20 20 |rent-sli|de 0.   |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 47 57 |        |     :GW|
|00003880| 2d 62 61 63 6b 2d 63 6f | 6c 6f 72 20 20 20 20 28 |-back-co|lor    (|
|00003890| 6d 61 6b 65 2d 63 6f 6c | 6f 72 20 23 78 46 46 46 |make-col|or #xFFF|
|000038a0| 46 20 30 20 23 78 46 46 | 46 46 29 0d 20 20 20 20 |F 0 #xFF|FF).    |
|000038b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 47 57 2d |        |    :GW-|
|000038c0| 63 6f 70 79 2d 6d 6f 64 | 65 20 20 20 20 20 28 2b |copy-mod|e     (+|
|000038d0| 20 23 24 70 61 74 43 6f | 70 79 20 23 24 74 72 61 | #$patCo|py #$tra|
|000038e0| 6e 73 70 61 72 65 6e 74 | 29 0d 20 20 20 20 20 20 |nsparent|).      |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 3a 47 57 2d 69 6e |        |  :GW-in|
|00003900| 69 74 2d 66 6e 20 20 20 | 20 20 20 20 27 6f 66 66 |it-fn   |    'off|
|00003910| 2d 69 6e 69 74 29 0d 20 | 20 20 20 20 20 20 20 20 |-init). |        |
|00003920| 20 20 20 20 20 28 6d 61 | 6b 65 2d 69 6e 73 74 61 |     (ma|ke-insta|
|00003930| 6e 63 65 20 27 62 75 74 | 74 6f 6e 2d 64 69 61 6c |nce 'but|ton-dial|
|00003940| 6f 67 2d 69 74 65 6d 0d | 20 20 20 20 20 20 20 20 |og-item.|        |
|00003950| 20 20 20 20 20 20 20 20 | 3a 64 69 61 6c 6f 67 2d |        |:dialog-|
|00003960| 69 74 65 6d 2d 74 65 78 | 74 20 22 42 65 61 6d 20 |item-tex|t "Beam |
|00003970| 6d 65 20 64 6f 77 6e 22 | 0d 20 20 20 20 20 20 20 |me down"|.       |
|00003980| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 66 |        | :view-f|
|00003990| 6f 6e 74 20 27 28 22 47 | 65 6e 65 76 61 22 20 30 |ont '("G|eneva" 0|
|000039a0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000039b0| 20 20 3a 76 69 65 77 2d | 70 6f 73 69 74 69 6f 6e |  :view-|position|
|000039c0| 20 23 40 28 35 20 35 29 | 0d 20 20 20 20 20 20 20 | #@(5 5)|.       |
|000039d0| 20 20 20 20 20 20 20 20 | 20 3a 64 69 61 6c 6f 67 |        | :dialog|
|000039e0| 2d 69 74 65 6d 2d 61 63 | 74 69 6f 6e 20 23 27 28 |-item-ac|tion #'(|
|000039f0| 6c 61 6d 62 64 61 20 28 | 64 69 29 20 28 64 65 63 |lambda (|di) (dec|
|00003a00| 6c 61 72 65 20 28 69 67 | 6e 6f 72 65 20 64 69 29 |lare (ig|nore di)|
|00003a10| 29 20 28 62 65 61 6d 20 | 74 29 29 29 0d 20 20 20 |) (beam |t))).   |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 61 6b 65 |        |   (make|
|00003a30| 2d 69 6e 73 74 61 6e 63 | 65 20 27 62 75 74 74 6f |-instanc|e 'butto|
|00003a40| 6e 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 0d 20 20 |n-dialog|-item.  |
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|00003a60| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|00003a70| 22 42 65 61 6d 20 6d 65 | 20 75 70 22 0d 20 20 20 |"Beam me| up".   |
|00003a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 76 69 |        |     :vi|
|00003a90| 65 77 2d 66 6f 6e 74 20 | 27 28 22 47 65 6e 65 76 |ew-font |'("Genev|
|00003aa0| 61 22 20 30 29 0d 20 20 | 20 20 20 20 20 20 20 20 |a" 0).  |        |
|00003ab0| 20 20 20 20 20 20 3a 76 | 69 65 77 2d 70 6f 73 69 |      :v|iew-posi|
|00003ac0| 74 69 6f 6e 20 23 40 28 | 31 31 30 20 35 29 0d 20 |tion #@(|110 5). |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00003ae0| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 2d 61 63 74 69 |dialog-i|tem-acti|
|00003af0| 6f 6e 20 23 27 28 6c 61 | 6d 62 64 61 20 28 64 69 |on #'(la|mbda (di|
|00003b00| 29 20 28 64 65 63 6c 61 | 72 65 20 28 69 67 6e 6f |) (decla|re (igno|
|00003b10| 72 65 20 64 69 29 29 20 | 28 62 65 61 6d 20 6e 69 |re di)) |(beam ni|
|00003b20| 6c 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |l))).   |        |
|00003b30| 20 20 20 28 6d 61 6b 65 | 2d 69 6e 73 74 61 6e 63 |   (make|-instanc|
|00003b40| 65 20 27 70 6f 70 2d 75 | 70 2d 6d 65 6e 75 0d 20 |e 'pop-u|p-menu. |
|00003b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00003b60| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 2d 74 65 78 74 |dialog-i|tem-text|
|00003b70| 20 22 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | "".    |        |
|00003b80| 20 20 20 20 3a 76 69 65 | 77 2d 70 6f 73 69 74 69 |    :vie|w-positi|
|00003b90| 6f 6e 20 23 40 28 32 30 | 30 20 35 29 0d 20 20 20 |on #@(20|0 5).   |
|00003ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 76 69 |        |     :vi|
|00003bb0| 65 77 2d 73 69 7a 65 20 | 23 40 28 31 32 30 20 32 |ew-size |#@(120 2|
|00003bc0| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|00003bd0| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 73 20 28 |   :menu|-items (|
|00003be0| 6c 69 73 74 20 28 6d 61 | 6b 65 2d 69 6e 73 74 61 |list (ma|ke-insta|
|00003bf0| 6e 63 65 20 27 6d 65 6e | 75 2d 69 74 65 6d 0d 20 |nce 'men|u-item. |
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c20| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 2d 74 69 |   :menu|-item-ti|
|00003c30| 74 6c 65 20 22 74 72 61 | 6e 73 70 6f 72 74 65 72 |tle "tra|nsporter|
|00003c40| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c60| 20 20 20 20 20 20 3a 6d | 65 6e 75 2d 69 74 65 6d |      :m|enu-item|
|00003c70| 2d 61 63 74 69 6f 6e 20 | 23 27 28 6c 61 6d 62 64 |-action |#'(lambd|
|00003c80| 61 20 28 29 20 28 6f 66 | 66 2d 66 78 20 3a 74 72 |a () (of|f-fx :tr|
|00003c90| 61 6e 73 70 6f 72 74 65 | 72 29 29 29 0d 20 20 20 |ansporte|r))).   |
|00003ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00003cc0| 6d 61 6b 65 2d 69 6e 73 | 74 61 6e 63 65 20 27 6d |make-ins|tance 'm|
|00003cd0| 65 6e 75 2d 69 74 65 6d | 0d 20 20 20 20 20 20 20 |enu-item|.       |
|00003ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 6d 65 |        |     :me|
|00003d00| 6e 75 2d 69 74 65 6d 2d | 74 69 74 6c 65 20 22 57 |nu-item-|title "W|
|00003d10| 61 79 6e 65 27 73 20 57 | 6f 72 6c 64 22 0d 20 20 |ayne's W|orld".  |
|00003d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d40| 20 20 3a 6d 65 6e 75 2d | 69 74 65 6d 2d 61 63 74 |  :menu-|item-act|
|00003d50| 69 6f 6e 20 23 27 28 6c | 61 6d 62 64 61 20 28 29 |ion #'(l|ambda ()|
|00003d60| 20 28 6f 66 66 2d 66 78 | 20 3a 77 61 79 6e 65 73 | (off-fx| :waynes|
|00003d70| 2d 77 6f 72 6c 64 29 29 | 29 0d 20 20 20 20 20 20 |-world))|).      |
|00003d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6d 61 6b |        |    (mak|
|00003da0| 65 2d 69 6e 73 74 61 6e | 63 65 20 27 6d 65 6e 75 |e-instan|ce 'menu|
|00003db0| 2d 69 74 65 6d 0d 20 20 | 20 20 20 20 20 20 20 20 |-item.  |        |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 3a 6d 65 6e 75 2d |        |  :menu-|
|00003de0| 69 74 65 6d 2d 74 69 74 | 6c 65 20 22 73 63 72 65 |item-tit|le "scre|
|00003df0| 65 6e 20 64 6f 6f 72 22 | 0d 20 20 20 20 20 20 20 |en door"|.       |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 6d 65 |        |     :me|
|00003e20| 6e 75 2d 69 74 65 6d 2d | 61 63 74 69 6f 6e 20 23 |nu-item-|action #|
|00003e30| 27 28 6c 61 6d 62 64 61 | 20 28 29 20 28 6f 66 66 |'(lambda| () (off|
|00003e40| 2d 66 78 20 3a 73 63 72 | 65 65 6e 2d 64 6f 6f 72 |-fx :scr|een-door|
|00003e50| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e70| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|00003e80| 61 6e 63 65 20 27 6d 65 | 6e 75 2d 69 74 65 6d 0d |ance 'me|nu-item.|
|00003e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003eb0| 20 20 20 20 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 74 |    :men|u-item-t|
|00003ec0| 69 74 6c 65 20 22 68 2d | 62 6c 69 6e 64 22 0d 20 |itle "h-|blind". |
|00003ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ef0| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 2d 61 63 |   :menu|-item-ac|
|00003f00| 74 69 6f 6e 20 23 27 28 | 6c 61 6d 62 64 61 20 28 |tion #'(|lambda (|
|00003f10| 29 20 28 6f 66 66 2d 66 | 78 20 3a 68 2d 62 6c 69 |) (off-f|x :h-bli|
|00003f20| 6e 64 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |nd))).  |        |
|00003f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f40| 20 20 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 69 6e |        |(make-in|
|00003f50| 73 74 61 6e 63 65 20 27 | 6d 65 6e 75 2d 69 74 65 |stance '|menu-ite|
|00003f60| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.      |        |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f80| 20 20 20 20 20 20 3a 6d | 65 6e 75 2d 69 74 65 6d |      :m|enu-item|
|00003f90| 2d 74 69 74 6c 65 20 22 | 76 2d 62 6c 69 6e 64 22 |-title "|v-blind"|
|00003fa0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003fc0| 20 20 20 20 20 3a 6d 65 | 6e 75 2d 69 74 65 6d 2d |     :me|nu-item-|
|00003fd0| 61 63 74 69 6f 6e 20 23 | 27 28 6c 61 6d 62 64 61 |action #|'(lambda|
|00003fe0| 20 28 29 20 28 6f 66 66 | 2d 66 78 20 3a 76 2d 62 | () (off|-fx :v-b|
|00003ff0| 6c 69 6e 64 29 29 29 0d | 20 20 20 20 20 20 20 20 |lind))).|        |
|00004000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004010| 20 20 20 20 20 20 20 20 | 20 20 28 6d 61 6b 65 2d |        |  (make-|
|00004020| 69 6e 73 74 61 6e 63 65 | 20 27 6d 65 6e 75 2d 69 |instance| 'menu-i|
|00004030| 74 65 6d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |tem.    |        |
|00004040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004050| 20 20 20 20 20 20 20 20 | 3a 6d 65 6e 75 2d 69 74 |        |:menu-it|
|00004060| 65 6d 2d 74 69 74 6c 65 | 20 22 6c 2d 74 6f 2d 72 |em-title| "l-to-r|
|00004070| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004090| 20 20 20 20 20 20 3a 6d | 65 6e 75 2d 69 74 65 6d |      :m|enu-item|
|000040a0| 2d 61 63 74 69 6f 6e 20 | 23 27 28 6c 61 6d 62 64 |-action |#'(lambd|
|000040b0| 61 20 28 29 20 28 6f 66 | 66 2d 66 78 20 3a 6c 65 |a () (of|f-fx :le|
|000040c0| 66 74 2d 74 6f 2d 72 69 | 67 68 74 29 29 29 0d 20 |ft-to-ri|ght))). |
|000040d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040f0| 20 28 6d 61 6b 65 2d 69 | 6e 73 74 61 6e 63 65 20 | (make-i|nstance |
|00004100| 27 6d 65 6e 75 2d 69 74 | 65 6d 0d 20 20 20 20 20 |'menu-it|em.     |
|00004110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00004130| 6d 65 6e 75 2d 69 74 65 | 6d 2d 74 69 74 6c 65 20 |menu-ite|m-title |
|00004140| 22 72 2d 74 6f 2d 6c 22 | 0d 20 20 20 20 20 20 20 |"r-to-l"|.       |
|00004150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 6d 65 |        |     :me|
|00004170| 6e 75 2d 69 74 65 6d 2d | 61 63 74 69 6f 6e 20 23 |nu-item-|action #|
|00004180| 27 28 6c 61 6d 62 64 61 | 20 28 29 20 28 6f 66 66 |'(lambda| () (off|
|00004190| 2d 66 78 20 3a 72 69 67 | 68 74 2d 74 6f 2d 6c 65 |-fx :rig|ht-to-le|
|000041a0| 66 74 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ft))).  |        |
|000041b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000041c0| 20 20 20 20 20 20 20 20 | 28 6d 61 6b 65 2d 69 6e |        |(make-in|
|000041d0| 73 74 61 6e 63 65 20 27 | 6d 65 6e 75 2d 69 74 65 |stance '|menu-ite|
|000041e0| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.      |        |
|000041f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004200| 20 20 20 20 20 20 3a 6d | 65 6e 75 2d 69 74 65 6d |      :m|enu-item|
|00004210| 2d 74 69 74 6c 65 20 22 | 74 2d 74 6f 2d 62 22 0d |-title "|t-to-b".|
|00004220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004240| 20 20 20 20 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 61 |    :men|u-item-a|
|00004250| 63 74 69 6f 6e 20 23 27 | 28 6c 61 6d 62 64 61 20 |ction #'|(lambda |
|00004260| 28 29 20 28 6f 66 66 2d | 66 78 20 3a 74 6f 70 2d |() (off-|fx :top-|
|00004270| 74 6f 2d 62 6f 74 74 6f | 6d 29 29 29 0d 20 20 20 |to-botto|m))).   |
|00004280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|000042a0| 6d 61 6b 65 2d 69 6e 73 | 74 61 6e 63 65 20 27 6d |make-ins|tance 'm|
|000042b0| 65 6e 75 2d 69 74 65 6d | 0d 20 20 20 20 20 20 20 |enu-item|.       |
|000042c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000042d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 6d 65 |        |     :me|
|000042e0| 6e 75 2d 69 74 65 6d 2d | 74 69 74 6c 65 20 22 62 |nu-item-|title "b|
|000042f0| 2d 74 6f 2d 74 22 0d 20 | 20 20 20 20 20 20 20 20 |-to-t". |        |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004310| 20 20 20 20 20 20 20 20 | 20 20 20 3a 6d 65 6e 75 |        |   :menu|
|00004320| 2d 69 74 65 6d 2d 61 63 | 74 69 6f 6e 20 23 27 28 |-item-ac|tion #'(|
|00004330| 6c 61 6d 62 64 61 20 28 | 29 20 28 6f 66 66 2d 66 |lambda (|) (off-f|
|00004340| 78 20 3a 62 6f 74 74 6f | 6d 2d 74 6f 2d 74 6f 70 |x :botto|m-to-top|
|00004350| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004370| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|00004380| 61 6e 63 65 20 27 6d 65 | 6e 75 2d 69 74 65 6d 0d |ance 'me|nu-item.|
|00004390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043b0| 20 20 20 20 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 74 |    :men|u-item-t|
|000043c0| 69 74 6c 65 20 22 72 6f | 75 6e 64 20 69 72 69 73 |itle "ro|und iris|
|000043d0| 20 6f 75 74 22 0d 20 20 | 20 20 20 20 20 20 20 20 | out".  |        |
|000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043f0| 20 20 20 20 20 20 20 20 | 20 20 3a 6d 65 6e 75 2d |        |  :menu-|
|00004400| 69 74 65 6d 2d 61 63 74 | 69 6f 6e 20 23 27 28 6c |item-act|ion #'(l|
|00004410| 61 6d 62 64 61 20 28 29 | 20 28 6f 66 66 2d 66 78 |ambda ()| (off-fx|
|00004420| 20 3a 72 6f 75 6e 64 2d | 69 72 69 73 2d 6f 75 74 | :round-|iris-out|
|00004430| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00004440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004450| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|00004460| 61 6e 63 65 20 27 6d 65 | 6e 75 2d 69 74 65 6d 0d |ance 'me|nu-item.|
|00004470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004490| 20 20 20 20 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 74 |    :men|u-item-t|
|000044a0| 69 74 6c 65 20 22 72 6f | 75 6e 64 20 69 72 69 73 |itle "ro|und iris|
|000044b0| 20 69 6e 22 0d 20 20 20 | 20 20 20 20 20 20 20 20 | in".   |        |
|000044c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044d0| 20 20 20 20 20 20 20 20 | 20 3a 6d 65 6e 75 2d 69 |        | :menu-i|
|000044e0| 74 65 6d 2d 61 63 74 69 | 6f 6e 20 23 27 28 6c 61 |tem-acti|on #'(la|
|000044f0| 6d 62 64 61 20 28 29 20 | 28 6f 66 66 2d 66 78 20 |mbda () |(off-fx |
|00004500| 3a 72 6f 75 6e 64 2d 69 | 72 69 73 2d 69 6e 29 29 |:round-i|ris-in))|
|00004510| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00004520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004530| 20 20 20 20 28 6d 61 6b | 65 2d 69 6e 73 74 61 6e |    (mak|e-instan|
|00004540| 63 65 20 27 6d 65 6e 75 | 2d 69 74 65 6d 0d 20 20 |ce 'menu|-item.  |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004570| 20 20 3a 6d 65 6e 75 2d | 69 74 65 6d 2d 74 69 74 |  :menu-|item-tit|
|00004580| 6c 65 20 22 73 71 75 61 | 72 65 20 69 72 69 73 20 |le "squa|re iris |
|00004590| 69 6e 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |in".    |        |
|000045a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000045b0| 20 20 20 20 20 20 20 20 | 3a 6d 65 6e 75 2d 69 74 |        |:menu-it|
|000045c0| 65 6d 2d 61 63 74 69 6f | 6e 20 23 27 28 6c 61 6d |em-actio|n #'(lam|
|000045d0| 62 64 61 20 28 29 20 28 | 6f 66 66 2d 66 78 20 3a |bda () (|off-fx :|
|000045e0| 73 71 75 61 72 65 2d 69 | 72 69 73 2d 69 6e 29 29 |square-i|ris-in))|
|000045f0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00004600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004610| 20 20 20 20 28 6d 61 6b | 65 2d 69 6e 73 74 61 6e |    (mak|e-instan|
|00004620| 63 65 20 27 6d 65 6e 75 | 2d 69 74 65 6d 0d 20 20 |ce 'menu|-item.  |
|00004630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004650| 20 20 3a 6d 65 6e 75 2d | 69 74 65 6d 2d 74 69 74 |  :menu-|item-tit|
|00004660| 6c 65 20 22 73 71 75 61 | 72 65 20 69 72 69 73 20 |le "squa|re iris |
|00004670| 6f 75 74 22 0d 20 20 20 | 20 20 20 20 20 20 20 20 |out".   |        |
|00004680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004690| 20 20 20 20 20 20 20 20 | 20 3a 6d 65 6e 75 2d 69 |        | :menu-i|
|000046a0| 74 65 6d 2d 61 63 74 69 | 6f 6e 20 23 27 28 6c 61 |tem-acti|on #'(la|
|000046b0| 6d 62 64 61 20 28 29 20 | 28 6f 66 66 2d 66 78 20 |mbda () |(off-fx |
|000046c0| 3a 73 71 75 61 72 65 2d | 69 72 69 73 2d 6f 75 74 |:square-|iris-out|
|000046d0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046f0| 20 20 20 20 20 20 28 6d | 61 6b 65 2d 69 6e 73 74 |      (m|ake-inst|
|00004700| 61 6e 63 65 20 27 6d 65 | 6e 75 2d 69 74 65 6d 0d |ance 'me|nu-item.|
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004730| 20 20 20 20 3a 6d 65 6e | 75 2d 69 74 65 6d 2d 74 |    :men|u-item-t|
|00004740| 69 74 6c 65 20 22 6e 6f | 6e 65 22 0d 20 20 20 20 |itle "no|ne".    |
|00004750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004770| 3a 6d 65 6e 75 2d 69 74 | 65 6d 2d 61 63 74 69 6f |:menu-it|em-actio|
|00004780| 6e 20 23 27 28 6c 61 6d | 62 64 61 20 28 29 20 28 |n #'(lam|bda () (|
|00004790| 6f 66 66 2d 66 78 20 3a | 6e 6f 6e 65 29 29 29 0d |off-fx :|none))).|
|000047a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047c0| 20 20 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |  )).   |        |
|000047d0| 20 20 20 28 6d 61 6b 65 | 2d 69 6e 73 74 61 6e 63 |   (make|-instanc|
|000047e0| 65 20 27 70 6f 70 2d 75 | 70 2d 6d 65 6e 75 0d 20 |e 'pop-u|p-menu. |
|000047f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00004800| 76 69 65 77 2d 70 6f 73 | 69 74 69 6f 6e 20 23 40 |view-pos|ition #@|
|00004810| 28 33 32 35 20 35 29 0d | 20 20 20 20 20 20 20 20 |(325 5).|        |
|00004820| 20 20 20 20 20 20 20 20 | 3a 76 69 65 77 2d 73 69 |        |:view-si|
|00004830| 7a 65 20 23 40 28 31 32 | 30 20 32 30 29 0d 20 20 |ze #@(12|0 20).  |
|00004840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|00004850| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|00004860| 22 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |"".     |        |
|00004870| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 73 20 28 |   :menu|-items (|
|00004880| 6c 69 73 74 20 28 6d 61 | 6b 65 2d 69 6e 73 74 61 |list (ma|ke-insta|
|00004890| 6e 63 65 20 27 6d 65 6e | 75 2d 69 74 65 6d 0d 20 |nce 'men|u-item. |
|000048a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048c0| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 2d 74 69 |   :menu|-item-ti|
|000048d0| 74 6c 65 20 22 6e 6f 20 | 64 65 6c 61 79 22 0d 20 |tle "no |delay". |
|000048e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004900| 20 20 20 3a 6d 65 6e 75 | 2d 69 74 65 6d 2d 61 63 |   :menu|-item-ac|
|00004910| 74 69 6f 6e 20 23 27 28 | 6c 61 6d 62 64 61 20 28 |tion #'(|lambda (|
|00004920| 29 20 28 64 65 6c 61 79 | 2d 73 65 74 20 30 29 29 |) (delay|-set 0))|
|00004930| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00004940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004950| 20 20 20 20 28 6d 61 6b | 65 2d 69 6e 73 74 61 6e |    (mak|e-instan|
|00004960| 63 65 20 27 6d 65 6e 75 | 2d 69 74 65 6d 0d 20 20 |ce 'menu|-item.  |
|00004970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004990| 20 20 3a 6d 65 6e 75 2d | 69 74 65 6d 2d 74 69 74 |  :menu-|item-tit|
|000049a0| 6c 65 20 22 32 20 74 69 | 63 6b 73 22 0d 20 20 20 |le "2 ti|cks".   |
|000049b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049d0| 20 3a 6d 65 6e 75 2d 69 | 74 65 6d 2d 61 63 74 69 | :menu-i|tem-acti|
|000049e0| 6f 6e 20 23 27 28 6c 61 | 6d 62 64 61 20 28 29 20 |on #'(la|mbda () |
|000049f0| 28 64 65 6c 61 79 2d 73 | 65 74 20 32 29 29 29 0d |(delay-s|et 2))).|
|00004a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a20| 20 20 28 6d 61 6b 65 2d | 69 6e 73 74 61 6e 63 65 |  (make-|instance|
|00004a30| 20 27 6d 65 6e 75 2d 69 | 74 65 6d 0d 20 20 20 20 | 'menu-i|tem.    |
|00004a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a60| 3a 6d 65 6e 75 2d 69 74 | 65 6d 2d 74 69 74 6c 65 |:menu-it|em-title|
|00004a70| 20 22 35 20 74 69 63 6b | 73 22 0d 20 20 20 20 20 | "5 tick|s".     |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00004aa0| 6d 65 6e 75 2d 69 74 65 | 6d 2d 61 63 74 69 6f 6e |menu-ite|m-action|
|00004ab0| 20 23 27 28 6c 61 6d 62 | 64 61 20 28 29 20 28 64 | #'(lamb|da () (d|
|00004ac0| 65 6c 61 79 2d 73 65 74 | 20 35 29 29 29 0d 20 20 |elay-set| 5))).  |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004af0| 28 6d 61 6b 65 2d 69 6e | 73 74 61 6e 63 65 20 27 |(make-in|stance '|
|00004b00| 6d 65 6e 75 2d 69 74 65 | 6d 0d 20 20 20 20 20 20 |menu-ite|m.      |
|00004b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 6d |        |      :m|
|00004b30| 65 6e 75 2d 69 74 65 6d | 2d 74 69 74 6c 65 20 22 |enu-item|-title "|
|00004b40| 31 30 20 74 69 63 6b 73 | 22 0d 20 20 20 20 20 20 |10 ticks|".      |
|00004b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 6d |        |      :m|
|00004b70| 65 6e 75 2d 69 74 65 6d | 2d 61 63 74 69 6f 6e 20 |enu-item|-action |
|00004b80| 23 27 28 6c 61 6d 62 64 | 61 20 28 29 20 28 64 65 |#'(lambd|a () (de|
|00004b90| 6c 61 79 2d 73 65 74 20 | 31 30 29 29 29 29 29 0d |lay-set |10))))).|
|00004ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 29 29 |        |      ))|
|00004bb0| 29 0d 0d 0d 7c 23 00 00 | 00 00 00 00 00 00 00 00 |)...|#..|........|
|00004bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c00| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00004c10| 00 00 10 04 08 54 79 6b | 65 73 4f 70 73 00 00 00 |.....Tyk|esOps...|
|00004c20| 18 55 08 54 79 6b 65 73 | 4f 70 73 00 06 00 00 00 |.U.Tykes|Ops.....|
|00004c30| 0f 47 57 6f 72 6c 64 2d | 73 76 6d 2e 6c 69 73 70 |.GWorld-|svm.lisp|
|00004c40| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 34 |....TEXT|CCL2...4|
|00004c50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 34 01 00 |..TEXTCC|L2...4..|
|00004c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c70| 00 00 a5 c1 95 85 00 00 | 4b 36 00 00 01 ba 4e 53 |........|K6....NS|
|00004c80| 49 02 1e 34 04 73 76 61 | 62 02 0a 00 00 00 17 29 |I..4.sva|b......)|
|00004c90| 04 41 4e 53 49 00 00 00 | 17 2b 04 41 4e 53 49 02 |.ANSI...|.+.ANSI.|
|00004ca0| 1e 34 04 73 76 61 62 02 | 0a 00 00 00 17 29 04 41 |.4.svab.|.....).A|
|00004cb0| 4e 53 49 00 00 00 17 2b | 04 41 4e 53 49 02 17 2b |NSI....+|.ANSI..+|
|00004cc0| 04 41 4e 53 49 02 62 6c | 65 7e 0a 00 00 00 17 29 |.ANSI.bl|e~.....)|
|00004cd0| 04 41 4e 53 49 00 00 00 | 17 2b 04 41 4e 53 49 02 |.ANSI...|.+.ANSI.|
|00004ce0| ff ff ff ff ff ff ff ff | 00 00 00 01 00 00 03 07 |........|........|
|00004cf0| 00 00 00 04 0a 00 00 00 | 17 29 04 41 4e 53 49 00 |........|.).ANSI.|
|00004d00| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00004d10| 00 0a 00 ae 07 43 6f 75 | 72 69 65 72 00 00 00 48 |.....Cou|rier...H|
|00004d20| 00 0a 43 6f 75 72 69 65 | 72 00 00 00 00 00 00 00 |..Courie|r.......|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 00 06 00 08 00 55 | 00 83 03 3e 03 21 00 55 |.......U|...>.!.U|
|00004d50| 00 83 03 3e 03 21 00 00 | 00 00 00 00 3e f7 00 00 |...>.!..|....>...|
|00004d60| 3e f7 00 00 3b c2 01 00 | 00 00 01 00 00 00 01 68 |>...;...|.......h|
|00004d70| 00 00 00 68 00 00 00 52 | 00 c8 a9 70 06 9e 00 00 |...h...R|...p....|
|00004d80| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00004d90| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|00004da0| 00 00 00 03 ff ff 00 00 | 00 0e 00 00 00 00 03 ed |........|........|
|00004db0| ff ff 00 00 00 1c 00 c8 | ba b0 00 00 00 00 00 00 |........|........|
|00004dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+